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

Question

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

这是公式，

=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

您需要在带引号的字符串中将引号加倍。

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