[已解决]请问怎么替换整个工作簿而不是替换一个工作表

ccc919

VBS的问题.rar (8.06 KB, 下载次数: 8)

2013-12-30 15:25 上传

点击文件名下载附件
附件
现在只能替换当前工作表的文字，请问要怎么修改才能替换整个工作簿中的文字。
Sub xg()
On Error Resume Next
arr = Array("布局")
  Cells.Replace What:=arr(i), Replacement:="全局"
arr = Array("新闻")
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2013-12-30 15:34

Sub Test()
    Dim x
   
    For Each x In Sheets
        With x.UsedRange
            .Replace "二层", "指定令"
            .Replace "随机", "你猜"
        End With
    Next
End Sub

跳转到最佳答案楼层

E路人

工作簿的所有工作表要循环

ccc919

E路人 发表于 2013-12-27 10:30
工作簿的所有工作表要循环

请问怎么代码怎么写？

爱疯

如果有3个工作表，替换前分别是什么名字，替换后分别是什么名字？

ccc919

爱疯 发表于 2013-12-27 10:46
如果有3个工作表，替换前分别是什么名字，替换后分别是什么名字？

问题是我的工作是不定数。可能多可能少所以不能确定工作表的名字。

ccc919

爱疯 发表于 2013-12-27 10:46
如果有3个工作表，替换前分别是什么名字，替换后分别是什么名字？

替换前是 ： 记录
替换后名字： 报告

替换前名字：校核
替换后名字：审核

有多个这样子不同字要改。而且不一样的字，在一个工作簿中

爱疯

替换前后内容的工作表名是否有联系或规律吗？

如果有，说明一下
如果没，就必须事先列举出替换后所有工作表的名字。

ccc919

爱疯 发表于 2013-12-27 11:35
替换前后内容的工作表名是否有联系或规律吗？

如果有，说明一下

工作表，随着报告附页增加而增加工作表的而且没有规律。名字也是不一样的。我看ctrl+H 替换功能可以搜索整个工作簿。VBS代码没有搜索整个工作簿的功能么？

风林火山

另存成你要的工作薄，然后删除原来工作薄

爱疯

上传附件吧:一个是替换前的文件，一个是替换后的。
大家看到具体的东西，才更好理解些。