Excel 如何将某列单元格值赋给一个一维数组

如何将某列单元格值赋给一个一维数组
我写成
arr=range("A1:A100")
msgbox arr(0)
为什么提示下标越界？
*********************************************
这样赋值是属二维数组，用
msgbox arr(1,1)

这样就可以：Sub sz()
  Dim arr
  arr = WorksheetFunction.Transpose(Range("a1:a12").Value)
  MsgBox arr(1)
End Sub
Sub sz2()
  Dim arr
  arr = Range("a1:a12").Value
  MsgBox arr(1, 1)
End Sub

一次性把单元格赋值给数组，默认第一元素师1