VBA跨工作表传值遇13类型不匹配错误，求正确变量类型

首先，你的问题核心是源区域包含混合数据类型（数值、日期），而你尝试的单一数据类型（String/Integer/Long）无法兼容这种混合场景，导致了错误13（类型不匹配）。下面给你针对性的解决方案：

方案1：如果变量存储单个单元格的值 #

直接用Variant类型，它是VBA里的“万能类型”，可以完美容纳数值、日期等任何数据类型，不会出现类型不匹配：

Private Sub Update_Click()
    Dim AgentName As String
    Dim IncidentReport As Variant ' 改用Variant类型
    Dim MyData As Workbook
    
    ' 假设从源工作表的目标单元格取值（比如A1）
    IncidentReport = Worksheets("SourceSheet").Range("A1").Value
    
    ' 可选：如果需要把日期转成你想要的字符串格式
    If IsDate(IncidentReport) Then
        IncidentReport = Format(IncidentReport, "yyyy-mm-dd HH:mm:ss") ' 自定义格式
    End If
    
    ' 后续的赋值/处理逻辑...
End Sub

方案2：如果变量存储多个单元格区域的值（比如你说的“数值、日期、数值”组合区域） #

同样用Variant，它会自动变成一个二维数组，完美存储区域内的所有值和对应类型：

Private Sub Update_Click()
    Dim AgentName As String
    Dim IncidentReport As Variant ' 自动转为二维数组
    Dim MyData As Workbook
    
    ' 赋值整个目标区域（比如A1:C1，对应数值、日期、数值）
    IncidentReport = Worksheets("SourceSheet").Range("A1:C1").Value
    
    ' 访问数组元素：格式为 数组名(行号,列号)
    ' 比如取出日期单元格的值并格式化
    If IsDate(IncidentReport(1, 2)) Then
        MsgBox "提取到的日期：" & Format(IncidentReport(1, 2), "yyyy-mm-dd")
    End If
    
    ' 后续的赋值/处理逻辑...
End Sub

为什么之前的类型不行？ #

• Integer/Long：只能存储整数，而Excel里的日期本质是带小数的Double类型（比如2024年5月20日是45432，带时间的话是45432.5），把Double赋值给Long必然触发类型不匹配。
• String：如果是单个日期单元格，直接赋值会转成默认字符串，但如果是多个单元格区域，String变量无法存储数组，同样会报错；而且混合数值+日期直接转String也可能出现格式混乱的问题。
• Variant：是唯一能兼容混合数据类型、同时支持单个值和区域数组的类型，完全适配你的场景。

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