VBA中单个单元格赋值如何防止Variant数组转为单个String？

你遇到的问题是VBA的特性导致的：当Range对象仅包含单个单元格时，Range.Value返回的是单个值（如字符串、数值等），而非二维数组，这会直接覆盖你之前用ReDim定义的数组结构。

以下两种方法可以确保arr始终保持二维数组形态：

方法一：提前判断单元格数量 #

先检查选中区域的单元格总数，若为单个单元格则手动给数组赋值，否则直接批量赋值：

Dim r As Range
Dim arr As Variant

Set r = Selection
ReDim arr(1 To r.Rows.Count, 1 To r.Columns.Count)

If r.Cells.Count = 1 Then
    arr(1, 1) = r.Value
Else
    arr = r.Value
End If

方法二：赋值后转换单值为数组 #

先执行赋值操作，再判断结果是否为数组，若不是则重新构建二维数组：

Dim r As Range
Dim arr As Variant

Set r = Selection
arr = r.Value

' 若返回的是单值，转为二维数组
If Not IsArray(arr) Then
    ReDim tempArr(1 To 1, 1 To 1)
    tempArr(1, 1) = arr
    arr = tempArr
End If

两种方法都能保证最终arr的结构与选中区域的行列数匹配，即使是单个单元格也不会丢失数组形态。

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