如何使用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