Question

VBA如何显示数组

一般的变量我可以用MSGBOX显示，但数组里面的值我如何把他显示出来

Answer 1

Sub arrayMsg()

Dim ar As Variant, m As String, i As Integer

ar = Array("A34", "A34", "A81", "A15", "A150", "A193", "A87", "A139", "A31", "A80", "A190", "A168", "A182", "A83", "A200", "A60", "A167", "A146", "A187", "A103")'20个值

For i = 0 To UBound(ar)

m = m & "," & ar(i) '更新自身的值，加数，逗号分隔

Next i

MsgBox m

End Sub

Sub arrayMsg1() '1维数组

Dim ar(0 To 20) As Variant, m As String, i As Integer

For i = 0 To UBound(ar)

ar(i) = Cells(i + 1, 1).Value '加入a1:a20的值

m = m & "," & ar(i)

 

Next i

MsgBox m

End Sub

Sub arrayMsg2() '2维数组

Dim ar() As Variant, m As String, i As Integer

ar = Range("arrng") 'arrng为名称，范围为[a1：b10]

For i = LBound(ar, 1) To UBound(ar, 1) '1维的数据

    For j = LBound(ar, 2) To UBound(ar, 2) '2维的数据

    

        Cells(i, j + 4).Value = ar(i, j) '隔四行输出数组的值

        m = m & Chr(9) & ar(i, j) 'tab符

        

    Next j

    m = m & Chr(10)  '换行符

Next i

MsgBox m

End Sub

Answer 2

还可以用MSGBOX来显示，以下是示例：

Dim s
Dim p As String
p = ""
s = Array(1, 2, 3, 4, 5)
For i = LBound(s) To UBound(s)
p = p & s(i) & vbCrLf
Next
MsgBox p

Answer 3

可以建一个 listbox 或者直接复制到工作表里面

数组有很多个数据，你希望如何显示没说清楚