Excel、for eachとuboundを使って見ました。

option plicit

option base 1

Sub 試験2()
    Dim a(10) As Long
    Dim j As Long
    Dim k As Variant
    
    
    For j = 1 To 10
        a(j) = j * 100
    Next
    
    'for eachを使う
    For Each k In a()
        Debug.Print k
    Next
        
    'uboundを使う
    For j = 1 To UBound(a)
        Debug.Print a(j)
    Next
    
End Sub

　for each　とuboundは同じように使えるんでしょうが、頭が固い自分は

uboundのほうがしっくり来ます。

option plicitとoption base 1をしています。

　クリックで拡大します。

Excelの場合は、aを配列として、bを配列とすると

b=a

でコピーになるんですが、一般の言語VBとかでは同じアドレスが与えられます。