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

yewei113

来看看，

ccc919

爱疯 发表于 2013-12-27 14:19
上传附件吧:一个是替换前的文件，一个是替换后的。
大家看到具体的东西，才更好理解些。

附件已经上传,求解决..

爱疯

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

ccc919

爱疯 发表于 2013-12-30 15:34
Sub Test()
    Dim x
   

非常感谢