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

Question

I am making a template for others to paste their data into the file, and for a macro to run and copy formulas down all rows that contain data. The sheet contains headers. The formula is in column D (Price). I want the macro to start in cell D2, and copy the formula in cell D2 down all rows in column D.

Answer 1

Through trial and error, and mashing up different recommendations, this is what works for my purposes:

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

End Sub