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

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

How to enter a formula in a cell using vba

excel

vba

formula