呵呵，需要加一个转置函数 Application.Transpose(ActiveSheet.Range("a1:a10").Value )
sub abc()
Dim abcd() As Variant
abcd = Application.Transpose(ActiveSheet.Range("a1:a10").Value)
MsgBox UBound(abcd)
For i = 1 To UBound(abcd)
MsgBox (abcd(i))
Next
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除！