小编Ong*_*pen的帖子

我想问一下重命名excel表,我想用新名称重命名表:旧名+ _v1.

因此,如果我当前的工作表名称是test,那么我想要新名称test_v1.

我只知道重命名excel表的标准vba,它是由表单内容重命名excel表.

Sub Test()

Dim WS As Worksheet

For Each WS In Sheets
   WS.Name = WS.Range("A5")
Next WS
End Sub

我想问一下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))