VBA阵列一次复制多个值

Question

是否可以将一堆值从VBA数组复制到另一个数组，而不需要循环？

像DestArray（4：7）= OrigArray（8:11）

之类的东西

Answer 1

是的，只要您未将复制到的阵列从一开始就没有标注尺寸并且属于同一类型。

I.e： -

Dim DestinationArray(1) As string会导致错误，但Dim DestinationArray() As string不会。

如果来源不是Dim DestinationArray() As Long

，则

Long会导致错误

Public Sub test()
Dim Array1(1) As String
Dim Array2() As String

Array1(0) = "Hello"
Array1(1) = "World!"

Array2() = Array1

End Sub