VBA中Double数组接收转置Range值时出现类型不匹配错误的原因？

处理医疗副作用表格时，需要提取两列数据：副作用名称（文本型）、严重程度（0.10-25.00的小数）。使用WorksheetFunction.Transpose转置文本列存入数组正常，但转置数值列存入Double数组时触发**Type Mismatch（类型不匹配）**错误。改用Variant数组可正常存储，且数组内元素均为Double类型，尝试用CDbl和#强制转换也无效，数据范围不含表头。相关代码如下：

Function DiagnoseSideEffect(ByRef rngSide As Range) As String
    Dim sSideFx() As Variant
    Dim dSeverity() As Double
    Dim vSeverity() As Variant
    ' ... 其他声明

    sSideFx = WorksheetFunction.Transpose(rngSide.Columns(2).Value)
    dSeverity = WorksheetFunction.Transpose(rngSide.Columns(4).Value) ' 错误：类型不匹配
    vSeverity = WorksheetFunction.Transpose(rngSide.Columns(4).Value) ' 正常运行
    ' 函数剩余代码...
End Function 

• 核心原因：WorksheetFunction.Transpose返回的是Variant类型的二维数组（即使所有元素都是数值），VBA不支持直接将Variant数组赋值给强类型的Double数组，必须手动转换元素类型。

• 解决办法1：手动遍历转换数组
  先将转置结果存入Variant数组，再逐个元素转换为Double并赋值到目标数组：

  Function DiagnoseSideEffect(ByRef rngSide As Range) As String
      Dim sSideFx() As Variant
      Dim dSeverity() As Double
      Dim vSeverity() As Variant
      Dim i As Long
  
      sSideFx = WorksheetFunction.Transpose(rngSide.Columns(2).Value)
      vSeverity = WorksheetFunction.Transpose(rngSide.Columns(4).Value)
      
      ' 初始化Double数组大小
      ReDim dSeverity(LBound(vSeverity) To UBound(vSeverity))
      ' 逐个转换赋值
      For i = LBound(vSeverity) To UBound(vSeverity)
          dSeverity(i) = CDbl(vSeverity(i))
      Next i
      ' 函数剩余代码...
  End Function 
  

• 解决办法2：直接使用Variant数组（推荐）
  如果后续代码对数组类型没有强制要求，直接使用Variant数组即可——既然元素本身已经是Double类型，后续运算不会有问题，还能简化代码。

• 额外注意：如果表格中存在空单元格或非数值内容，转换时会触发错误，建议添加错误处理（比如IsNumeric判断或On Error Resume Next捕获异常）。

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