关于合并单元格的部分文本替换的疑问

后仰运球

本人在做一个工作簿中所有工作表的文本替换时，发现用命令进行替换没有问题，用VBA代码替换时就不行，应该就是搜不到，实在是没法啊，求大神相助！

砂海

  Dim rg as range'
'
'...
For Each sh In wb.Worksheets
        sh.Activate
        For j = 0 To k - 1 '遍历工作簿所有的工作表
            whatstr = rep1(j) '需要替换文本
            replstr = rep2(j) '替换文本
            
            For Each rg In sh.Range("A1:g55")
                        rg.Value = Replace(rg.Value, whatstr, replstr)
            Next rg

        Next j
    Next
'....

录制的代码就和你的一样,但不知道为什么不行 ,
这样虽然可以实现要求 ,但运行效率很低 , 应该使用数组循环 , 而不是单元格循环.

爱疯

Sub test()
    Dim A, wb, sh, i
    A = Range("a1").CurrentRegion
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\003-勘测计划工作量一览表.xls")
    For Each sh In wb.Sheets
        For i = 2 To UBound(A)
            sh.Cells.Replace A(i, 1), A(i, 2)
        Next i
    Next sh
    wb.Close 1
End Sub


这样可以吗

后仰运球

试试哈，感觉和录制宏差不多

后仰运球

砂海 发表于 2019-12-30 20:33
Dim rg as range'
'
'...

是啊，而且录制宏时，点选针对工作表和工作簿出来的代码没有区别，感觉是bug了啊

后仰运球

爱疯 发表于 2019-12-31 17:18
Sub test()
    Dim A, wb, sh, i
    A = Range("a1").CurrentRegion

可以啊，试过了，真是不明白    这样简单的代码就可以，录制的就不行   我改成这样sh.Cells.Replace rep1(i), rep2(i)也可以