CurrentRegionを使う。
Worksheets(“Sheet1”).Activate
Range(“A1”).CurrentRegion.Select
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell.html
かなり使える。
シートにあるものを二次元配列に入れたかったら
sheetName = “シート名”
maxrow = Sheets(sheetName).Range(“A1”).End(xlDown).Row'行の端っこ
maxright = Sheets(sheetName).Range(“A1”).End(xlToRight).Column'列のはしっこ
Dim values As Variant
values = Range(“A1”).CurrentRegion
これで全部とれた。