扩大复制范围

【问题标题】：Expand a copy Range扩大复制范围
【发布时间】：2016-03-24 07:30:13
【问题描述】：

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

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

 End Sub

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

【问题讨论】：

标签： excel

【解决方案1】：

如果复制范围是连续的值范围，Q 列中有一个空白列，第 43 行下方有一个空白行，则可以像这样使用 CurrentRegion 属性：

Range("A1").CurrentRegion.Copy

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

【讨论】：

这段代码似乎只是从单元格 A1 复制到 P2，而不是一直复制到 P43？
我解释了要求：连续范围。这意味着 A1 和 P43 之间没有空白行或空白列。 Excel 无法读懂你的想法。它需要一些东西过去。您可能想发布您的数据样本，以便我们都在看同一件事。更新您的问题，然后发表评论。