Excel VBA脚本出现Error 13类型不匹配问题排查求助

一、先锁定第2行的核心问题 #

Error 13本质是变量类型与赋值内容不兼容，直接聚焦CalculateDailyConsumption过程第2行代码：

• 如果是数据范围引用（比如Set dataRng = Sheets("原始数据").Range("A:D")），检查工作表名称是否拼写错误，或目标范围是否包含空值、非预期文本；
• 如果是变量赋值（比如Dim currDate As Date: currDate = Cells(i, 3).Value），大概率是C列时间戳未被识别为日期格式，直接赋值给Date类型变量触发不匹配。

二、验证并修复C列时间戳格式 #

针对你怀疑的时间戳识别问题，按以下步骤排查：

1. 手动检查格式：选中C列，右键→设置单元格格式，确认是「日期时间」类型，而非「文本」；
2. 强制转换与校验：如果CSV导入后时间戳是文本，VBA中需先校验再转换，避免直接赋值出错：

   Dim rawTs As Variant
   rawTs = Cells(i, 3).Value
   If IsDate(rawTs) Then
       currTimestamp = CDate(rawTs)
   Else
       ' 标记无效数据，避免中断流程
       Cells(i, "X").Value = "无效时间戳"
       GoTo NextRow
   End If
   

3. 导入时提前设置：重新导入CSV时，在「文本导入向导」中将C列指定为「日期」格式（选择匹配的时间戳样式，如YYYY-MM-DD HH:MM:SS），从源头避免格式问题。

三、完善首次计量点日期的消耗量逻辑 #

针对无前一日数据的异常，确保你的检查逻辑覆盖边界场景：

1. 分组排序后判断：按计量点ID分组并按日期排序，遇到计量点的第一条数据时，直接跳过消耗量计算或标记为「无前置数据」：

   ' 假设已完成计量点ID分组和日期排序
   If prevMeterID = "" Or DateDiff("d", prevDate, currDate) <> 1 Then
       dailyConsumption = "无前置数据"
   Else
       dailyConsumption = currReading - prevReading
   End If
   

2. 初始化校验：确保prevReading等变量在首次循环时已被正确初始化（比如设为Empty），避免用默认值（如0）参与计算导致逻辑错误。

四、保障Forbrugsstedsnummer列前导零不丢失 #

• CSV导入时，将该列设为「文本」格式；
• VBA中处理时，用String类型变量存储，且调用.Text而非.Value获取单元格内容：

  Dim forbrugsNr As String
  forbrugsNr = Cells(i, "A").Text ' 保留前导零
  

五、添加调试语句定位具体错误 #

在代码中插入调试输出，快速找到触发错误的行和数据：

Sub CalculateDailyConsumption()
    ' 开启调试输出
    Debug.Print "===== 开始处理 ====="
    On Error Resume Next
    ' 原第2行代码
    If Err.Number = 13 Then
        Debug.Print "错误行：" & i & "，错误描述：" & Err.Description & "，单元格值：" & Cells(i, 3).Value
        Err.Clear
    End If
    On Error GoTo 0
    ' 后续代码...
NextRow:
End Sub

运行后按Ctrl+G打开立即窗口，查看错误对应的具体行和数据内容。

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