Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在Excel VBA中,将整个工作表(通过选择)读入python样式的列表列表中_Excel_Vba - Fatal编程技术网

在Excel VBA中,将整个工作表(通过选择)读入python样式的列表列表中

在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

我想将excel工作表中的任何值放入visual basic中的列表列表中,每个子列表都是一整行。然后,请告诉我如何在调试窗口中打印该数组,谢谢

我不确定列表列表是什么样子,但您可以将数据读入数组并使用它:

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列中的一个单元格。