VBA将当前名字为机况的A1:B3 单元格数据放进数组内

你可以使用以下 VBA 代码将当前名为 "机况" 的 A1:B3 单元格范围内的数据存入数组中：

Dim myArray As Variant
myArray = Range("机况").Value

这样，myArray 就会包含 A1:B3 单元格范围内的数据。

相关问题

VBA将当前sheet name为机况的A1:B3 单元格数据放进数组内

好的，我了解了你的要求，并且会为您提供答案。您可以像下面这样编写VBA代码来实现这一目标：

Sub PutDataIntoArray()
Dim dataArr() As Variant '定义一个 Variant 类型的数组用于存储数据

'将 A1:B3 单元格的数据存储到数组中
dataArr = Range("A1:B3").Value

'输出数组中的数据
For i = LBound(dataArr, 1) To UBound(dataArr, 1)
For j = LBound(dataArr, 2) To UBound(dataArr, 2)
Debug.Print "dataArr(" & i & "," & j & ")=" & dataArr(i, j)
Next j
Next i
End Sub

这段代码会将当前工作表中名为“机况”的A1:B3单元格数据存储到一个二维数组中，然后通过循环体遍历数组中的元素并输出它们的值。

VBA将当前sheet name为 XXA 的A1:B3 单元格数据放进数组内

好的，针对你的问题，以下是VBA代码示例，可以将当前sheet name为XXA的A1:B3单元格数据放入数组内：

Sub ArrayExample()
    Dim dataArray(1 To 3, 1 To 2) As Variant
    Dim i As Integer, j As Integer
   
    '将数据存入数组
    For i = 1 To 3
        For j = 1 To 2
            dataArray(i, j) = Sheets("XXA").Cells(i, j).Value
        Next j
    Next i
   
    '输出数组中的数据
    For i = 1 To 3
        For j = 1 To 2
            Debug.Print dataArray(i, j)
        Next j
    Next i
End Sub

在这个例子中，我们定义了一个名为dataArray的变量作为数组，然后使用双重循环遍历A1:B3单元格，将其值存储在数组中。最后，我们可以通过循环打印数组中的数据来验证已成功导入。