嗨，我来帮你搞定这个Excel VBA数组填充的问题！你已经定义了一个2行100列的二维数组，要把两个单元格区域的数据导入进去，其实有几种很实用的方法，我给你一步步讲清楚：

方法1：两个区域是单列100行（最常见场景） #

假设你要导入的是Sheet1里的A1:A100（对应数组第一行）和B1:B100（对应数组第二行），可以用Application.Transpose来转换区域的维度，直接赋值：

Sub FillArrayFromColumns()
    ' 定义2行100列的数组（VBA默认索引从1开始，和Excel单元格对应更直观）
    Dim myArray(1 To 2, 1 To 100) As Variant
    
    ' 第一个单列区域：A1到A100
    Dim colRange1 As Range
    Set colRange1 = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    ' 转置单列区域的Value（原本是100行1列的数组），变成1行100列，匹配数组第一行
    myArray(1, 1 To 100) = Application.Transpose(colRange1.Value)
    
    ' 第二个单列区域：B1到B100
    Dim colRange2 As Range
    Set colRange2 = ThisWorkbook.Sheets("Sheet1").Range("B1:B100")
    
    ' 同样转置后赋值给数组第二行
    myArray(2, 1 To 100) = Application.Transpose(colRange2.Value)
    
    ' 测试：打印数组第一行第一个元素到立即窗口
    Debug.Print "第一行第一个元素：" & myArray(1, 1)
End Sub

方法2：两个区域是单行100列 #

如果你的数据源是单行的（比如A1:CV1和A2:CV2，刚好100列），那更简单，直接把区域的Value赋值给数组对应行就行，不用转置：

Sub FillArrayFromRows()
    Dim myArray(1 To 2, 1 To 100) As Variant
    
    ' 第一个单行区域：A1到CV1（100列）
    Dim rowRange1 As Range
    Set rowRange1 = ThisWorkbook.Sheets("Sheet1").Range("A1:CV1")
    
    ' 直接赋值给数组第一行
    myArray(1, 1 To 100) = rowRange1.Value
    
    ' 第二个单行区域：A2到CV2
    Dim rowRange2 As Range
    Set rowRange2 = ThisWorkbook.Sheets("Sheet1").Range("A2:CV2")
    
    ' 赋值给数组第二行
    myArray(2, 1 To 100) = rowRange2.Value
    
    ' 测试：打印第二行第50个元素
    Debug.Print "第二行第50个元素：" & myArray(2, 50)
End Sub

额外避坑提示 #

• 一定要确保你的单元格区域正好是100个元素，不然会触发下标越界错误。可以加个判断提前校验：

  If colRange1.Cells.Count <> 100 Then
      MsgBox "第一个区域的单元格数量不对，请检查！"
      Exit Sub
  End If
  

• 如果你的数组是基于0的索引（比如Dim myArray(0 To 1, 0 To 99)），记得把代码里的索引范围对应调整，比如myArray(0, 0 To 99)。

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