在Excel VBA中，将整个表格（通过select）读入Python列表的列表中

我想把任何值在Excel表中列入Visual Basic列表中，每个子列表都是整行。 那么请告诉我如何在debugging窗口中打印该数组，谢谢

Answer 1

我不确定什么是“列表清单”，但是您可以将数据读入数组并使用它：

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 

数组的第一维表示行，第二维表示列。