Question

我想问一下vba excel，我想填写多个单元格的公式，但公式包含文本字符串。

Sub Test()

    Dim strFormulas(1 To 2) As Variant

    With ActiveSheet
        strFormulas(1) = "=ISNUMBER(SEARCH(Apple,B2))"
        strFormulas(2) = "=ISNUMBER(SEARCH(Orange,B2))"

        .Range("C2:D2").Formula = strFormulas
        .Range("C2:D11").FillDown
    End With

End Sub

在第一个我这样做，但因为本地没有文本字符串，所以结果都是假的，因为公式应该是=ISNUMBER(SEARCH("Apple",B2))

Answer 1

strFormulas(1) = "=ISNUMBER(SEARCH(""Apple"",B2))"
strFormulas(2) = "=ISNUMBER(SEARCH(""Orange"",B2))"

Answer 2

加倍引用是一个更简单的解决方案，但如果您感兴趣，另一种方法是使用Chr(34)

Sub Test()

    Dim strFormulas(1 To 2) As Variant

    With ActiveSheet
        strFormulas(1) = "=ISNUMBER(SEARCH(" & Chr(34) & "Apple" & Chr(34) & ",B2))"
        strFormulas(2) = "=ISNUMBER(SEARCH(" & Chr(34) & "Orange" & Chr(34) & ",B2))"

        .Range("C2:D2").Formula = strFormulas
        .Range("C2:D11").FillDown
    End With

End Sub

使用带有文本字符串

2 个答案: