怎么样?
Sub EasyArrayInput() Dim myArr() As Variant myArr = Array("string1", "string2", "string3") End Sub