Question

ActiveCell.FormulaR1C1 = "=IF(LEFT(C[-3])>0,C[-3]*6,C[-3])"
Range("L10").Select
Selection.AutoFill Destination:=Range("L10:L32"), Type:=xlFillDefault
Range("L10:L32").Select

我需要最后一行数据。 L32并不总是最后一行。

Answer 1

这将在A列中找到最后使用的行，并将公式填充到从L10开始的那一行

With ActiveSheet
    Dim lstrw As Long
    lstrw = .Cells(.Rows.Count, 1).End(xlUp).Row

    .Range(.Cells(10, "L"), .Cells(.lstrw, "L")).FormulaR1C1 = "=IF(LEFT(C[-3])>0,C[-3]*6,C[-3])"
End With

尝试创建将公式拖到数据最后一行的宏

1 个答案: