求助条件查找替换，请帮完善一下

7837323

如果新退休表（两表合一）中的j3单元格内容为空白时，运行宏就可把解聘还原为退休。如果新退休表（两表合一）中的j3单元格内容为解聘时，运行宏就可把新退休表（两表合一）和定期待遇申领表单元格的退休替换成解聘，可以实现得了吗？表格我上传了，若有空，敬请帮完善一下只想仅对新退休表（两表合一）和定期待遇申领表中含有退休字符的单元格进行替换，不替换其他表，也不替换工作表名称中的内容。

ykcbf1100

今天收工之作。

于箱长

ykcbf1100 发表于 2022-11-18 16:57
今天收工之作。

下班儿，撸串，喝酒去

7837323

老师运行宏时，跳出窗口是什么回事，教教我要怎么解决

7837323

gwjkkkkk

Sub TEST()
Dim arr, wks As Worksheet, i&, j&
On Error Resume Next
If Sheets("新退休表（两表合一）").[J3] <> "解聘" Then Exit Sub
For Each wks In ThisWorkbook.Sheets(Array("新退休表（两表合一）", "定期待遇申领表"))
   arr = wks.UsedRange
   For i = 1 To UBound(arr)
       For j = 1 To UBound(arr, 2)
         arr(i, j) = Replace(arr(i, j), "退休", "解聘")
       Next j
   Next i
   wks.UsedRange = arr
Next
End Sub

gwjkkkkk

代码审核中，请参考 附件。。。

7837323

gwjkkkkk 发表于 2022-11-18 20:33
代码审核中，请参考 附件。。。

感谢大神帮助