Excel VBA 質問スレ Part67

[490 デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMc2-brDT) 2020/07/18(土) 23:52:10.32 ID:UVKbM6jvM]

>>485
単純化した一つの正解の型

Sub test()
Dim ary() As String
ary() = fnc
MsgBox ary(1)
End Sub

Function fnc() As String()
Dim ary(1) As String
ary(1) = "a"
fnc = ary()
End Function