需要替换工作表名称

时间:2019-07-18 08:32:10

标签: excel vba

是否有一种方法(也许带有代码)来搜索和替换工作表名称?

例如,我有20个工作表名称,名称中包含“直接(1)”,“直接(2)”,“直接(3)”,依此类推,  我想将工作表名称中的“直接(2)”替换为“净”  每个实例。

因此它将是“ Net(1)”,“ Net(2)”,“ Net(1)”

Public Sub Direct2ToNet()
     Const sRepl As String = "Direct (2)"
     Dim ws As Worksheet
     Dim nPos

     On Error Resume Next

     For Each ws In ActiveWorkbook.Worksheets
         With ws
             If .Name Like "*" & sRepl & "*" Then _
                .Name = Replace(.Name, sRepl, "Net")
         End With
     Next ws

     On Error GoTo 0
 End Sub

1 个答案:

答案 0 :(得分:1)

以下内容就足够了:

WithMany()