arrays - 如何将单元格范围分配给数组

Question

我正在尝试使用以下代码创建一个简单的一维数组。

Sub Button3_Click()
Dim search() As Variant
Dim data() As Variant
Worksheets("IO List").Activate
Set searchitems = ActiveSheet.Range("A1", "U1")
Set ExportData = ActiveSheet.Range("A3", "U3")
search = searchitems.Value
MsgBox (search(1))
End Sub

消息框只是检查数组的值，但我抛出错误:运行时错误'9':下标或范围

Answer 1

将单元格值分配给数组时，即使您仅从单列或单行收集值，您也始终得到一个二维数组。

Application.transpose 会将行数据从单列转换为基于一的一维数组。使用它两次会将列数据从单行转换为基于一的一维数组。

Dim search As Variant, data As Variant

Worksheets("IO List").Activate
search  = Application.transpose(Application.transpose(Range("A1", "U1").value))
data = Application.transpose(Application.transpose(Range("A3:U3").value))

MsgBox search(1)