是否有一种方法(也许带有代码)来搜索和替换工作表名称?
例如,我有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
答案 0 :(得分:1)
以下内容就足够了:
WithMany()