展开副本范围

Question

我有一个按钮驱动的宏，它将一系列单元格复制到剪贴板（所以我可以放在其他文档中）：

 Sub Button2_Click()
 '
 ' Button2_Click Macro
  Range("A1:p43").Copy

 End Sub            

不时形成我需要在工作表中添加或删除该范围内的行。我需要的是复制范围扩展（或收缩）到包含值的行数。注意：列不会调整，只会调整行。

Answer 1

如果复制范围是连续的值范围，Q列中有空白列，第43行下面有空行，则可以使用CurrentRegion属性，如下所示：

Range("A1").CurrentRegion.Copy

它与点击A1然后使用Ctrl-Shift-Down箭头和Ctrl-Shift-Right箭头基本相同。