应该可以
你用这个试试,定义二维数组示例:
dim arr(1 to 10,1 to 2)
例一
tempArray= Array("0","1","2","3","4","5","6","7","8","9",
"a","b","c","d","e","f","g","h","i","j",
"A","B","C","D","E","F","G","H","I","J",
"~","!","@","#","$","%","^","&","*","(")
Dim codeArray(9,3)
For i=0 To 3
For j=0 To 9
codeArray(j,i) = tempArray(i*10+j)
Next
Next
例二
dim a(1,3)
for i = 0 to ubound(a,2)
for j = 0 to ubound(a,1)
a(j,i)=x
x=x+1
next
next
for i = 0 to ubound(a,2)
for j = 0 to ubound(a,1)
str1=str1 & a(j,i) & vbcrlf
next
next
msgbox str1
都是百度搜来的,建议客户遇到金字塔VBA的开发问题,多利用一下网络资源。
金字塔VBA用的VBS脚本,与VBS保值100%兼容性