作者：乔山办公网日期：
返回目录：excel表格制作
你的C1是什么内容，A1:A8呢，希望得到什么样子的结果，都要拷屏上图才好哦
将那句dim brr
改成以下试试看
Redim brr(lbound(arr) to ubound(arr) , 1 to 3)
声明一个变体变量, 然后直接将单元格区域的值赋给它.
Public Sub a()
Dim a
a = Range("A1:A55")
End Sub
Sub test()
Dim arr As Variant
arr = Range("a1:j" & [j65536].End(3).Row) '从a1到j的最下端一行
End Sub