向您请教一个问题：实际工作中化验结果查找数据手工查找易失误，下面是Excel2003工作表一部分：ABCDEFGHIJKLMNOPQR121538233617343938...
向您请教一个问题：实际工作中化验结果查找数据手工查找易失误，下面是Excel2003工作表一部分：A B C D E F G H I J K L M N O P Q R1 21 5 38
2 3 36 17
3
4 39 38 3 0 -17 21 -26 4 4 -3 0 19 8.8 13 36 53 10 155 1 3 7 8 10 10 13 13 15 18 21 27 27 27 28 36 36 376 7 1 3 0 -15 7 6 7 4 -3 0 8 3.5 5.3 4 21 10 157 2 3 7 8 10 10 13 13 15 18 21 27 27 27 28 36 36 378 7 11 3 0 -17 19 6 12 4 -3 0 8 3.5 5.3 4 21 10 15问题1:怎样用公式法或VBA等方法在A4:R4行数据中查找并突出显示A1:C1单元格的数据（如单元格变色或者是字体颜色改变等），实现A1:C1数据改变后在A4:R4自动查找并突出显示？问题2:怎样用公式法或VBA等方法在A4:R13行数据中查找并突出显示A1:C2单元格的数据（如单元格变色或者是字体颜色改变等），实现A1:C2数据改变后在A4:R13自动查找并突出显示？谢谢！
展开
选择擅长的领域继续答题？
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便，互动更有趣，下载APP
提交成功是否继续回答问题？
手机回答更方便，互动更有趣，下载APP
问题1：只要将以下代码放在数据源所在工作表中就可以实现A1:C1更改后自动更新查找目标并更换颜色。Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row <> 1 Then Exit SubIf Target.Column = 1 Then GoTo stIf Target.Column = 2 Then GoTo stIf Target.Column = 3 Then GoTo stExit Subst:Cells.SelectSelection.Interior.ColorIndex = xlNoneDim CFor C = 1 To 18If Cells(4, C).Value = Range("A1").Value ThenCells(4, C).SelectWith Selection.Interior.ColorIndex = 34.Pattern = xlSolidEnd WithEnd IfIf Cells(4, C).Value = Range("B1").Value ThenCells(4, C).SelectWith Selection.Interior.ColorIndex = 34.Pattern = xlSolidEnd WithEnd IfIf Cells(4, C).Value = Range("C1").Value ThenCells(4, C).SelectWith Selection.Interior.ColorIndex = 34.Pattern = xlSolidEnd WithEnd IfNextEnd Sub问题2.只要将以下代码放在数据源所在工作表中就可以实现A1:C2更改后自动更新查找目标并更换颜色。Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row <> 1 ThenIf Target.Row <> 2 Then Exit SubIf Target.Column = 1 Then GoTo stIf Target.Column = 2 Then GoTo stIf Target.Column = 3 Then GoTo stExit SubEnd Ifst:Cells.SelectSelection.Interior.ColorIndex = xlNoneDim C, RFor C = 1 To 18For R = 4 To 13If Cells(R, C).Value = Range("A1").Value ThenCells(R, C).SelectWith Selection.Interior.ColorIndex = 35.Pattern = xlSolidEnd WithEnd IfIf Cells(R, C).Value = Range("B1").Value ThenCells(R, C).SelectWith Selection.Interior.ColorIndex = 35.Pattern = xlSolidEnd WithEnd IfIf Cells(R, C).Value = Range("C1").Value ThenCells(R, C).SelectWith Selection.Interior.ColorIndex = 35.Pattern = xlSolidEnd WithEnd IfIf Cells(R, C).Value = Range("A2").Value ThenCells(R, C).SelectWith Selection.Interior.ColorIndex = 35.Pattern = xlSolidEnd WithEnd IfIf Cells(R, C).Value = Range("B2").Value ThenCells(R, C).SelectWith Selection.Interior.ColorIndex = 35.Pattern = xlSolidEnd WithEnd IfIf Cells(R, C).Value = Range("C2").Value ThenCells(R, C).SelectWith Selection.Interior.ColorIndex = 35.Pattern = xlSolidEnd WithEnd IfNextNextEnd Sub
在单元格格式里有这个功能，具体写法我忘了。就是那种可以自定义格式。}

在每个相同内容后面加123456有快捷方法嘛...
在每个相同内容后面加123456
有快捷方法嘛
展开
选择擅长的领域继续答题？
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便，互动更有趣，下载APP
}

2023-10-14 11:09
来源:
劳资蜀道三发布于：湖南省
在使用 Excel 中的公式进行必要的计算时，您可能会遇到各种错误。 #CALC 就是这样的错误之一！错误，当 Excel 在计算过程中遇到问题时会出现此错误。在这篇文章中，我将探讨 #CALC 的原因！ Excel 中的错误并提供实用的解决方案来有效地排除和解决它。#CALC是什么！ Excel 中出现错误？#CALC！错误表示 Excel 在公式内执行计算时遇到问题。当 Excel 的计算引擎面临当前不兼容的情况时，Excel 中就会出现此错误。#CALC 的原因！ Excel 中的错误#CALC！ Excel 中的错误可能由于多种原因而发生，包括：1. 空输出数组：如果公式生成空数组，则会触发#CALC！错误。使用 FILTER 函数时，#CALC!当查询结果没有产生任何匹配数据时，就会出现错误。在这种情况下，由于 Excel 无法生成空数组，因此它会显示#CALC！错误信息。2. 不立即调用 LAMBDA 函数：如果在单元格上使用 LAMBDA 函数，则必须通过向其传递值来立即调用该函数。否则，会导致#CALC！错误。故障排除并解决#CALC！ Excel 中的错误解决#CALC！错误并确保 Excel 中的计算准确，请考虑以下故障排除技术：1. 注意空输出数组：请记住，Excel 不能返回空输出数组。相反，Excel 返回#CALC！错误。因此，请注意公式语法和条件，以免生成任何空数组。2. 谨慎使用 LAMBDA 函数：如果您需要使用 LAMBDA 函数，请确保立即通过向其传递值来调用它。否则，会提示#CALC！错误。3.简化和优化公式：如果计算超出Excel的能力或遇到其他限制，请简化和优化您的公式。将复杂的公式分解为更小的部分，使用辅助单元，或考虑其他方法来实现所需的结果。4.向Excel专家寻求帮助：如果您遇到持续#CALC！如果出现错误或复杂的计算问题，请考虑联系 Excel 专家、在线社区或论坛寻求指导。他们可以根据您的独特情况提供具体的见解和建议。结论#CALC！当公式计算过程中出现问题时，Excel 中就会出现错误。这意味着Excel的计算引擎面临着目前不兼容的情况。返回搜狐，查看更多
责任编辑：}