我想 select 动态单元格并自动填充到最后一行
I want to select the dynamic cell and autofill it till the last row
该值在单元格 C 和 lastrow2 中,想要自动填充到 lastrow3
Range("C" & lastrow2).Select
Selection.AutoFill Destination:=Range(.Cells(lastrow2, 3), .Cells(lastrow3, 3)).FillDown
而不是 .Select
然后 Autofill
,您可以一次填充整个范围。这是你正在尝试的吗?
ws.Range(ws.Cells(lastrow2, 3), ws.Cells(lastrow3, 3)).Formula = _
ws.Cells(lastrow2, 3).Formula
其中 ws
是您的相关 sheet。例如
Dim ws As Worksheet
Set ws = Sheet1
该值在单元格 C 和 lastrow2 中,想要自动填充到 lastrow3
Range("C" & lastrow2).Select
Selection.AutoFill Destination:=Range(.Cells(lastrow2, 3), .Cells(lastrow3, 3)).FillDown
而不是 .Select
然后 Autofill
,您可以一次填充整个范围。这是你正在尝试的吗?
ws.Range(ws.Cells(lastrow2, 3), ws.Cells(lastrow3, 3)).Formula = _
ws.Cells(lastrow2, 3).Formula
其中 ws
是您的相关 sheet。例如
Dim ws As Worksheet
Set ws = Sheet1