Dim arr1(1 To 100, 1 To 2),arr = [a2:d100],其中100,如何用變數取代 - Excel程式區

[發問] Dim arr1(1 To 100, 1 To 2),arr = [a2:d100],其中100,如何用變數取代

1^# 跳轉到 »

發表於 2021-2-22 08:49 | 顯示全部帖子

回復 4# dou10801

Dim arr1()
mas = 999
ReDim arr1(1 To mas, 1 To 2)
Debug.Print UBound(arr1, 1), UBound(arr1, 2)

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。