VBA遍历列单元格触发类型不匹配错误求助

你编写的Chart_Laid子过程原本正常运行，修改后在If Cell = "Laid Down" Then语句触发**Type mismatch（类型不匹配）**错误，尝试用Cell.Value、Cell.Value2替代Cell后仍报错。以下是具体排查和解决方法：

• 检查单元格数据类型与错误值
  第三列中可能存在非文本类型单元格（如错误值#N/A、#VALUE!，或日期/数值型数据），直接和字符串比较会触发类型不匹配。先过滤错误值并判断类型：

  ' 替换原判断语句
  If Not IsError(Cell.Value) Then
      If Cell.Value = "Laid Down" Then
          ' 原逻辑代码
      End If
  End If
  

  或更严格地限定文本类型：

  If VarType(Cell.Value) = vbString And Cell.Value = "Laid Down" Then
      ' 原逻辑代码
  End If
  

• 缩小循环范围，避免遍历整列
  原代码For Each Cell In .Columns(3)会遍历第三列所有单元格（含大量空白行），空白单元格的Value为Empty，和字符串比较可能触发类型异常。限定到实际有数据的行：

  ' 在With wsLaid块内添加
  Dim lastRow As Long
  lastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
  ' 替换原循环语句
  For Each Cell In .Range(.Cells(1, 3), .Cells(lastRow, 3))
  

• 排查合并/隐藏单元格
  如果第三列存在合并单元格，Cell对象可能指向整个合并区域，直接取值会导致类型异常。处理合并单元格：

  If Not Cell.MergeCells Then
      If Cell.Value = "Laid Down" Then
          ' 原逻辑代码
      End If
  Else
      ' 取合并区域第一个单元格的值判断
      If Cell.MergeArea.Cells(1).Value = "Laid Down" Then
          ' 原逻辑代码
      End If
  End If
  

• 验证After_Midnight函数的类型兼容性
  若修改过After_Midnight函数，需确保它接收Double类型参数并返回Boolean值，避免间接引发类型问题。

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