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

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

---

通过反复试验，将不同的建议混合在一起，这就是我的目的：

公共子复制下行（）

变暗rng As范围 变暗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

---

End Sub

您自己尝试过什么吗？这是一个常见的问题？是的，我已经看过了。我对VBA一无所知。我已经尝试了多种解决方案，让我接近。你说这是一个常见的问题，却没有给我指出有效的解决方案，这是没有帮助的。Dave，SJR在这个网站上的评论是正确的。您可能需要查看中关于提问的指导原则。所以目标是回答程序员关于他们遇到问题的代码的问题。它不是一个代码编写服务或教程网站——我们不是为那些提出问题的人编写代码，而是帮助他们解决他们遇到的任何问题。你需要表现出努力。例如，使用链接添加最接近您需要的代码，并描述它如何“不工作”。但是为了理解答案，VBA的一些知识将非常有用……此外，为了回答评论中的某人（“ping”他们-在他们的收件箱中放一条消息），你需要在他们的名字前面加一个

@

，例如：@DaveT.Using select是一种懒惰的编程方式。