试试我下面的代码
Sub test()
Sheets("tempData").Select
Dim i As Integer
Dim j As Integer
Dim Arr(30, 15) As Variant
' Arr()中各成员赋值此处省略， 有字符串， 数字
'...
For i = 0 To (30 + 1)
For j = 0 To (15 + 1)
Cells(i + 100, j) = Arr(i, j)
Next j
Next i
End Sub
还在用6.0啊？
建议用vb.net 吧。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024