Excel查找并替换值宏或vlookup

时间:2018-07-29 07:23:46

标签: excel vba excel-vba

这是我的csv文件中的示例数据,我在A列中有很多与此相似的单元格。

https://drive.google.com/file/d/1jeu8XB6LgAc1UXuepDtXT4vdjTEhP0Ts/view?usp=sharing

在“查找和替换”框中,选择“查找值”选项,我能够找到所有abc,然后选择所有找到的值,然后单击“替换”选项卡,然后单击“替换”。但是在单击全部替换时不起作用。

如何让全部替换适用于该示例文件,或者是否有一个宏可以处理该示例文件中的数据?

我已经在excel论坛和其他网站上进行了搜索,但是它们似乎没有解决方法。

感谢您的帮助

1 个答案:

答案 0 :(得分:0)

这是应该起作用的代码

Sub replace_abc()

    Dim LstRw As Long, rng As Range

    LstRw = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:A" & LstRw)
    rng.Value = Replace(rng, "abc", "zzz")

End Sub