[已解决]请教各位老师，怎样用VBA快速完成查找替换，谢谢！

huangjinyui

请教各位老师，怎样用VBA快速完成查找替换，谢谢

最佳答案

月排行榜 / 总排行榜

Zipall

2012-5-16 10:00

Sub test()
    For r = 2 To Range("h65536").End(xlUp).Row
        Cells(r, 40).Replace Cells(r, 8), Cells(r, 9)
    Next
End Sub

跳转到最佳答案楼层

无聊的疯子

录制一个查找替换的宏就可以了!!!

桀骜孤星

正则是最好的办法，我也先学下正则。

Zipall

Sub test()
    For r = 2 To Range("h65536").End(xlUp).Row
        Cells(r, 40).Replace Cells(r, 8), Cells(r, 9)
    Next
End Sub

huangjinyui

谢谢各位老师的帮助，谢谢啦！

桀骜孤星

这样行，简洁呀，好。我也学到一招了