arrays - 如何在VBA的“即时”窗口中打印二维数组？

Question

如何在VBA的“即时”窗口中打印二维数组？是否存在执行此操作的通用方法？一种在“即时”窗口中为每行绘制一排数组的方法可以解决此问题，因为唯一要做的就是为数组的每一行循环此代码。

Answer 1

我做了一个简单的循环，以供所有人引用:

Sub WriteArrayToImmediateWindow(arrSubA As Variant)

Dim rowString As String
Dim iSubA As Long
Dim jSubA As Long

rowString = ""

Debug.Print
Debug.Print
Debug.Print "The array is: "
For iSubA = 1 To UBound(arrSubA, 1)
    rowString = arrSubA(iSubA, 1)
    For jSubA = 2 To UBound(arrSubA, 2)
        rowString = rowString & "," & arrSubA(iSubA, jSubA)
    Next jSubA
    Debug.Print rowString
Next iSubA

End Sub