假设a(3,2)
可以s=str(a(0,0)) & "," & str(a(0,1)) & "," str(a(0,2))
&符号表示字符串拼接
str函数把数值转换成字符串
其它的你自己也应该可以写了。
Dim i As Integer
Dim j As Integer
Dim s As String
Dim a(3, 3) As Variant
For i = 0 To 3 '假设的一个a(3,3)的数组 具体大小由你自己定了
For j = 0 To 3
s = s + Str(a(i, j)) + ","
Next j
Next i