用一行代码select4x4网格

我想select列A到D和行1到4（但范围将dynamic），单元格D4是空的，使用一行代码。 不幸的是，以下两种似乎都不起作用：

Range("A1", Range("A1").End(xlToRight).End(xlDown)).Select 

也不

 Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select 

感谢您的任何想法

Answer 1

此代码从A1（ CTRL+* ）获取当前区域的最后一个单元格

 Range("A1").CurrentRegion.Select 

应该pipe用。

和

 Range("A1").SpecialCells(xlCellTypeLastCell).Address 

应该给工作表中最后一个单元格的地址。

Answer 2

如果要从A1开始select4x4块，请使用：

 Range("A1").Resize(4, 4).Select 

如果要select包含A1中所有4列值的块，请使用：

 Range("A1:D" & Range("A1:D" & Cells.Rows.Count) _ .Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row).Select 

例如，要将基本单元格移到E7而不是A1 ，只需将上面的A1和A1:D分别replace为E7和E7:H 。