Excel – 将公式复制到X列的一个字段中，直到VBA中的最后一行

假设我在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