动态范围内及以上的自动填充

Question

我想在动态范围内自动填充单元。

我在第3行中有一系列数字，并想将“客户编号”一词写入。在每个单元格中。

我这样做是通过复制A2并粘贴到C2中，然后拖动

=“ https://i.sstatic.net/smneq.png” alt =“在此处输入图像描述”>

通过VBA宏录音机，我所获得的代码看起来像是

Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C2:E2"), Type:=xlFillDefault
Range("C2:E2").Select

我想知道是否有一种创建一个方法由于第3行中的单元格数会不时变化，因此在动态范围内的自动填充范围会发生变化吗？

谢谢

Answer 1

你可以这样做：

With ActiveSheet
    .Range("C3", .Cells(3, Columns.Count).End(xlToLeft)).Offset(-1).Value = .Range("A2").Value
End With