Question

我正在尝试创建一个宏。

cache.path

每次运行时，我的行数都会有所不同。这些（4）列在行1或2中没有任何内容。第三行是我想要复制到最后一列的公式。

C列是唯一一直始终为所有行提供信息的列。

Answer 1

另一种（更常见的）写作方式是：

Dim LR As Long
LR = Activesheet.Range("Y" & Rows.Count).End(xlUp).Row 
Range("C3").AutoFill Destination:=Range("Y3:Y" & LR)

这适用于任何工作表（也兼容模式），您不再需要自动填充

Answer 2

使用：

Dim LR As Long
With Worksheets("Sheet1") 'Change to your Worksheet name
    LR = .Cells(.Rows.Count, 3).End(xlUp).row
    .Range("Y3:Y" & LR).FillDown
    .Range("R3:R" & LR).FillDown
    .Range("B3:B" & LR).FillDown
    .Range("A3:A" & LR).FillDown
End With

excel宏不能自动填充到各行

2 个答案: