Excel自动replacemacros

如果这个问题听起来太简单了，我就告诉我在Excel VBA上没有任何经验。 我已经尝试使用Dim和数组，但是我没有实现我的目标。 我要么得到错误或无限循环。

基本上我有5个不同的旧文本replace，我想创build一个数组，循环它，使他们都被删除。

Sub AutoReplace() Dim myArray(1 To 5) As String myArray(1) = "Text1" myArray(2) = "Text2" myArray(3) = "Text3" myArray(4) = "Text4" myArray(5) = "Text5" For Each item In myArray ActiveCell.Select ActiveCell.Columns("A:A").EntireColumn.Select Selection.Replace What:=item, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next item End Sub 

我正在寻找关于我的代码有什么问题的build议，或者完全不同的方法。 我只有上面提到的最终目标。

Answer 1

尝试下面的代码。 避免使用select/激活。 要知道为什么点击这个链接 。 你也可以显式的指定表格名称，比如Sheets("sheet1").Columns("A:A")否则会把ActiveSheet

 Sub AutoReplace() Dim myArray(1 To 5) As String myArray(1) = "Text1" myArray(2) = "Text2" myArray(3) = "Text3" myArray(4) = "Text4" myArray(5) = "Text5" For Each Item In myArray Columns("A:A").Replace What:=Item, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next Item End Sub