需要替换工作表名称

Question

是否有一种方法（也许带有代码）来搜索和替换工作表名称？

例如，我有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

Answer 1

以下内容就足够了：

WithMany()