如何使用vba在单元格中input公式

我有一个公式，我想在列B中的所有单元格中input该公式，我该怎么做，我已经尝试了各种技巧，但似乎没有任何工作。

这是公式，

=MID(A1,SEARCH(":",A1,SEARCH("Assignee Group:",A1))+2,IFERROR(FIND(CHAR(10),A1,SEARCH("Assignee Group:",A1)),LEN(A1))-SEARCH(":",A1,SEARCH("Assignee Group:",A1))-1) 

它每次都给我一个语法错误。

Answer 1

您需要在报价string中加倍报价。

 Option Explicit Sub wqewre() With Worksheets("sheet1") With .Range(.Cells(1, "B"), .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 1)) .Formula = "=MID(A1, SEARCH("":"", A1, SEARCH(""Assignee Group:"", A1))+2, " & _ "IFERROR(FIND(CHAR(10), A1, SEARCH(""Assignee Group:"", A1)), " & _ "LEN(A1))-SEARCH("":"", A1, SEARCH(""Assignee Group:"", A1))-1)" End With End With End Sub