Public Sub aiueo() Dim Ary(2) As Variant Ary(0) = 10 Ary(1) = "文字列" Ary(2) = CDate("2021/2/2") Dim test As Variant test = Ary Call aiueo2(test) Call aiueo3(Ary()) End Sub Public Sub aiueo2(ByRef Ary As Variant) MsgBox TypeName(Ary) End Sub Public Sub aiueo3(ByRef Ary() As Variant) MsgBox TypeName(Ary()) End Sub