我想选择动态单元格并自动填充到最后一行

Question

值在单元格C和lastrow2中，并且希望自动填充到lastrow3

Range("C" & lastrow2).Select
Selection.AutoFill Destination:=Range(.Cells(lastrow2, 3), .Cells(lastrow3, 3)).FillDown

Answer 1

您可以一次性填充整个范围，而不是先填充.Select，然后填充Autofill。这就是你想要的吗？

ws.Range(ws.Cells(lastrow2, 3), ws.Cells(lastrow3, 3)).Formula = _
ws.Cells(lastrow2, 3).Formula

其中ws是您的相关表格。例如

Dim ws As Worksheet
Set ws = Sheet1