Sub test()
Dim my
my = Array("a", "b", "c", "d")
ae = UBound(my) + 1
my = WorksheetFunction.Transpose(my)
ReDim Preserve my(1 To ae, 1 To 3)
Debug.Print my(1, 1)
End Sub
vba 一維擴充成二維數組
最新推荐文章于 2023-09-21 17:41:57 发布
Sub test()
Dim my
my = Array("a", "b", "c", "d")
ae = UBound(my) + 1
my = WorksheetFunction.Transpose(my)
ReDim Preserve my(1 To ae, 1 To 3)
Debug.Print my(1, 1)
End Sub