如何将某列单元格值赋给一个一维数组 我写成 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 |
|