使用一行代码选择4x4网格

Question

我想选择A到D列和第1到4行（但是范围是动态的），单元格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

应该工作。

并且

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

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

Answer 2

如果要从A1开始选择4x4块，请使用：

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

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

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

要将基本单元格移至（例如E7而不是A1，只需将上面的A1和A1:D替换为E7和{{1}分别。