Vba 自动填充赢得'；t在所需的单元格处启动，并且赢得'；不能填满

我正在尝试将这个公式从AD2自动填充到数据集的末尾。但是，我的宏将使用AD1上的公式（列标题），而不是填充。我已经这样做过好几次了，但我不明白为什么它现在出了问题。令人讨厌的公式是从单元格（AB）上的几列读取，然后声明三个字符串中的一个

Dim lastRow As Long
lastRow = Cells(Rows.Count).End(xlUp).Row

Range("AD2").Select
Selection.FormulaR1C1 = _
    "=IF(NOT(ISERROR(FIND(""iMac"",RC[-2]))),""iMac"",IF(NOT(ISERROR(FIND(""MacBook"",R[-21]C[-2]))),""MacBook"",""N/A""))"
Range("AD2").Select
Selection.AutoFill Destination:=Range("AD2:AD" & lastRow)

---

试试这个。您的单元格中缺少一列（我使用了列a，因此需要进行相应的更改），您无需选择任何内容。事实上，您可能根本不需要自动填充，只需一次性应用于整个范围

Sub y()

Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

With Range("AD2")
    .FormulaR1C1 = _
        "=IF(NOT(ISERROR(FIND(""iMac"",RC[-2]))),""iMac"",IF(NOT(ISERROR(FIND(""MacBook"",R[-21]C[-2]))),""MacBook"",""N/A""))"
    .AutoFill Destination:=Range("AD2:AD" & lastRow)
End With

End Sub

---

尝试使用

ActiveSheet.Cells（ActiveSheet.Rows.Count，“AB”）.End（xlUp.Row

Sub test()


Dim lastRow As Long
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "AB").End(xlUp).Row

Range("AD2").Select
Selection.FormulaR1C1 = _
    "=IF(NOT(ISERROR(FIND(""iMac"",RC[-2]))),""iMac"",IF(NOT(ISERROR(FIND(""MacBook"",R[-21]C[-2]))),""MacBook"",""N/A""))"
Range("AD2").Select
Selection.AutoFill Destination:=Range("AD2:AD" & lastRow)

End Sub

lastRow=单元格（Rows.Count，“A”）.End（xlUp）。Row

您需要对特定列进行计数