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

Posted 2021-03-27

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

答案

通过反复试验和混搭不同的建议，这对我的目的有用：

Public Sub CopyDownRows（）

Dim rng As Range Dim LR As Long

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

结束子