关于 使用单元格区域 赋值给 数组的问题

gly198293

myPath = Application.GetOpenFilename(, , "")
Workbooks.Open Filename:=myPath
ReDim Brr(1 To Sheets.Count)
With GetObject(myPath)
    For i = 1 To .Sheets.Count
      Brr(i) = .Sheets(i).UsedRange
      Next
    .Close False
End With

请帮忙修改代码，我想要结果的是包括A1至最后一个非空单元格区域的所有值赋值给数组；
UsedRange 好像只能取得使用区域的，如果1、2行是空行，最后一个非空单元格是 G20；则数组取到的值是A3:G20.
怎么修改才能得到是 A1：G20 的值

08yj2001

brr(i)=.sheets(i).range("a1:g"&[g65536].end(xlup).row)

gly198293

08yj2001 发表于 2018-6-26 10:04
brr(i)=.sheets(i).range("a1:g"&[g65536].end(xlup).row)

我工作表不是固定列数的，这样只能取到G列。

gly198293

08yj2001 发表于 2018-6-26 10:04
brr(i)=.sheets(i).range("a1:g"&[g65536].end(xlup).row)

我的各个工作表的列数 不固定，所以不能固定取值到G列

08yj2001

gly198293 发表于 2018-6-26 10:26
我的各个工作表的列数 不固定，所以不能固定取值到G列

可以考虑加循环判断哪一列

lsdongjh

myPath = Application.GetOpenFilename(, , "")
Workbooks.Open Filename:=myPath
ReDim Brr(1 To Sheets.Count)
With GetObject(myPath)
    For i = 1 To .Sheets.Count
      strAddress = "A1:" & Split(.Sheets(i).UsedRange.Address(0, 0), ":")(1)
      Brr(i) = .Sheets(i).Range(strAddress)
      Next
    .Close False
End With

liulang0808

Brr(i) = .Sheets(i).Range(.Sheets(i).[a1], .Sheets(i).UsedRange)
看看这个是否可行

gly198293

谢谢，版主 和 lsdongjh。要的就是这个结果。好学习了。