在Excel VBA中,将整个工作表(通过选择)读入python样式的列表列表中
我想将excel工作表中的任何值放入visual basic中的列表列表中,每个子列表都是一整行。然后,请告诉我如何在调试窗口中打印该数组,谢谢我不确定列表列表是什么样子,但您可以将数据读入数组并使用它:在Excel VBA中,将整个工作表(通过选择)读入python样式的列表列表中,excel,vba,Excel,Vba,我想将excel工作表中的任何值放入visual basic中的列表列表中,每个子列表都是一整行。然后,请告诉我如何在调试窗口中打印该数组,谢谢我不确定列表列表是什么样子,但您可以将数据读入数组并使用它: Sub test() Dim v() As Variant Dim r As Long Dim c As Long With ActiveSheet.Range("A1", ActiveSheet.Cells.SpecialCells(xlCellTypeLas
Sub test()
Dim v() As Variant
Dim r As Long
Dim c As Long
With ActiveSheet.Range("A1", ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
v = .Value
Debug.Print "v is dimensioned as (" & LBound(v, 1) & " To " & UBound(v, 1) & ", " & _
LBound(v, 2) & " To " & UBound(v, 2) & ")"
For r = LBound(v, 1) To UBound(v, 1)
For c = LBound(v, 2) To UBound(v, 2)
Debug.Print "Row " & r & ", Col " & c & ":" & v(r, c)
Next
Next
End With
End Sub
数组的第一维表示行,第二维表示列。哪个变量包含二维数组版本的工作表?因此[[row1 cell1,row1 cell2],[row2 cell1,row2 cell2]@new_to_coding v是数组。v1,1是第1行第1列,v1,2是第1行第2列,v2,1是第2行第1列,v2,2是第2行第2列,以此类推。所以v1,x的每个位置x是第1行中的一个单元格。vx,1的每个位置x也是第1列中的一个单元格。