Excel-將公式復制到X列中的一個字段中，並向下復制到VBA中的最后一行

Question

假設我在單元格B2中有這個公式

=IFERROR(MID($A2,FIND("|",SUBSTITUTE($A2,"@","|",B$1)),IFERROR(FIND(" ",$A2,FIND("|",SUBSTITUTE($A2,"@","|",B$1))),LEN($A2)+1)-FIND("|",SUBSTITUTE($A2,"@","|",B$1))),"")

在VBA <中，我如何將其復制到最后一行並跨到（包括P列）

我看過一些示例，其中只顯示一列，而不顯示多個列，例如VBA，用於將公式填充到該列的最后一行

Answer 1

假設行數由A列中的數據確定，然后嘗試：

Dim lRow As Long
With ActiveSheet
    lRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("B2:P" & lRow).FormulaR1C1 = "=IFERROR(MID(RC1,FIND(""|"",SUBSTITUTE(RC1,""@"",""|"",R1C)),IFERROR(FIND("" "",RC1,FIND(""|"",SUBSTITUTE(RC1,""@"",""|"",R1C))),LEN(RC1)+1)-FIND(""|"",SUBSTITUTE(RC1,""@"",""|"",R1C))),"""")"
End With