VBA 怎么把当前的sheet 名字为机况的sheet AB两列数据放置在数组内
时间: 2023-06-10 16:05:49 浏览: 46
可以使用以下VBA代码将机况的sheet AB两列数据放置在数组内:
```
Dim arr() As Variant
Dim i As Integer
With ThisWorkbook.Sheets("机况")
'确定数据范围
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
'将AB两列数据放入数组中
arr = .Range("A1:B" & lastRow).Value
End With
```
该代码首先定义了一个名为arr的变量,用于存储AB两列数据。然后,使用With语句确定了机况的sheet,以便使用Cells和Range方法来确认数据范围和将数据放入数组。
需要注意的是,由于Excel中的数组是以1为基数的,因此arr数组的第一个元素将是arr(1,1),而不是arr(0,0)。
相关问题
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将当前名字为机况的A1:B3 单元格数据放进数组内
你可以使用以下 VBA 代码将当前名为 "机况" 的 A1:B3 单元格范围内的数据存入数组中:
```
Dim myArray As Variant
myArray = Range("机况").Value
```
这样,myArray 就会包含 A1:B3 单元格范围内的数据。