Excel VBA中If条件判断失效求助（值匹配仍不生效）

问题概述 #

Excel VBA代码中两个If条件判断始终无法触发，明明单元格值与KT(j)完全匹配。尝试过以下操作均无效：

• 切换单元格的Value/Text/Formula属性读取值
• 将值强制转换为Double或String类型
• 调整循环执行顺序
• 使用Application.Round处理数值精度

失效的条件代码 #

• 第一个失效条件：

  If .Cells(i, 16) = KT(j) Then WertWE(j) = WertWE(j) + .Cells(i, 8).Value
  

• 第二个失效条件：

  If .Cells(i, 20) = KT(j) Then WertRK(j) = WertRK(j) + .Cells(i, 18).Value
  

补充情况 #

• 在新建的测试文件中，代码可正常运行
• 将代码改为每次循环打开、关闭文件的方式，条件判断能生效，但这种方式效率极低，需找到原文件下的根本原因及高效解决办法

排查方向与解决办法 #

1. 统一数据类型并处理隐性差异 #

原文件可能存在单元格格式隐性问题或浮点精度误差，强制统一类型后再比较：

• 针对字符串或带格式的数值，转字符串后去除前后空格：

  If Trim(CStr(.Cells(i, 16).Value)) = Trim(CStr(KT(j))) Then 
      WertWE(j) = WertWE(j) + .Cells(i, 8).Value
  End If
  

• 针对纯数值类型，用精度阈值判断（避免浮点误差）：

  If Abs(CDbl(.Cells(i, 16).Value) - CDbl(KT(j))) < 0.000001 Then 
      WertWE(j) = WertWE(j) + .Cells(i, 8).Value
  End If
  

2. 清理单元格隐藏字符 #

原文件单元格可能包含空格、换行符等不可见字符，清理后再比较：

Dim cellText As String, ktText As String
cellText = Trim(Replace(.Cells(i, 16).Text, Chr(10), ""))
ktText = Trim(Replace(CStr(KT(j)), Chr(10), ""))
If cellText = ktText Then 
    WertWE(j) = WertWE(j) + .Cells(i, 8).Value
End If

3. 强制刷新工作表计算 #

原文件可能存在计算延迟，导致读取的不是最新单元格值，在循环前或循环内强制刷新：

' 在循环开始前刷新工作表
.Calculate
' 循环内读取值时明确获取最新值
Dim cellVal As Variant
cellVal = .Cells(i, 16).Value
If cellVal = KT(j) Then 
    WertWE(j) = WertWE(j) + .Cells(i, 8).Value
End If

4. 检查KT数组的赋值与状态 #

确认KT数组在原文件中未被意外修改：

• 在循环前添加调试代码，打印数组内的所有值，确认与预期一致：

  For j = LBound(KT) To UBound(KT)
      Debug.Print "KT(" & j & "): " & KT(j)
  Next j
  

• 检查数组的初始化逻辑，确保其类型与单元格值类型匹配（比如数组是String类型，而单元格是数值类型）

内容的提问来源于stack exchange，提问作者aagdemir