EXCEL高手vba把A列数字存入数组后如何用msgbox输出来

Question

EXCEL高手vba把A列数字存入数组后如何用msgbox输出来
Sub test()
Dim a(9) As Integer, i As Integer
For i = 1 To 10
a(i - 1) = Range("A" & i)
Next
End Sub

Answer 1

Sub test()Dim a(9) As Integer, i As Integer
Dim total as string
total=""
For i = 1 To 10
a(i - 1) = Range("A" & i)
total=total & " " & a(i-1) & " "
Next
msgbox total
End Sub

追问

最好答案了

Answer 2

Sub test()
Dim a(9) As Integer, i As Integer, t as String
t=""
For i = 1 To 10
a(i - 1) = Range("A" & i)
t = t & Range("A" & i) & IIf(i = 10, "}", ",")
Next
MsgBox t
End Sub

Answer 3

来练手的是吧？