如何复制和粘贴VBA而不复制和粘贴空行

Question

我有一个宏几乎完全符合我的需要，它是从一个工作表复制并粘贴到另一个工作表。这是代码。

ADM.Range("A6", ("A" & Rows.Count)).Copy Destination:=Pricing.Range("A3")

但是，我遇到的问题是它还复制并粘贴空行，以便我有一个超过100万行的电子表格。例如，如果我要复制并粘贴100行，我希望代码只复制并粘贴那100行而不是100万行。这对我来说是个问题，因为我需要自动填充公式，并且有100多万行导致代码失败。

非常感谢任何帮助。感谢

Answer 1

将("A" & Rows.Count)更改为：

ADM.Range("A" & Rows.Count).End(xlUp)

这样：

ADM.Range("A6", ADM.Range("A" & Rows.Count).End(xlUp)).Copy Destination:=Pricing.Range("A3")