[求助]~ 批量替换所有表中的相应内容

LVMJ2023

批量替换所有表中的相应内容

ykcbf1100

表名加括号

LVMJ2023

ykcbf1100 发表于 2023-2-1 16:58
表名加括号

谢谢老师，但我要的不是这个效果，是每张表里（1）替换成对应表名里的数字，比如表2里的（1）换成（2），表3里的（1）换成（3）

LVMJ2023

ykcbf1100 发表于 2023-2-1 16:58
表名加括号

表格里1-2aa标(1)这些（1）替换成对应表的数字，我的错，问题表达不清晰

gwjkkkkk

Sub test()
    Dim wks As Worksheet
    For Each wks In Sheets
       With wks
           .Cells.Replace What:="(1)", Replacement:="(" & wks.Name & ")", LookAt:=xlPart
       End With
    Next
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

LVMJ2023

gwjkkkkk 发表于 2023-2-1 18:15
请楼主参考附件。。。

收到 感谢，要的就是这个效果

shiruiqiang

LVMJ2023

shiruiqiang 发表于 2023-2-1 18:22

谢谢老师，问题已经解决了