VBA-复制单元格并向下粘贴列中的空白行

Question

我正在为其他人创建一个模板，以将其他人的数据粘贴到文件中，并为宏创建一个模板，以便在包含数据的所有行中向下运行和复制公式。该工作表包含标题。该公式在D列（价格）中。我希望宏在单元格D2中开始，然后将单元格D2中的公式向下复制到D列中的所有行。

Answer 1

通过反复试验，并提出不同的建议，这对我而言是有效的：

公共子CopyDownRows（）

将范围调整为范围 昏暗的LR只要

Sheets("Sheet1").Select
LR = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("D3:D" & LR)
Range("D").Select
Selection.Copy
rng.Select
ActiveSheet.Paste

结束子