VBA 怎么把当前的sheet 名字为机况的sheet AB两列数据放置在数组内

可以使用以下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)。