vba - 删除多个单元格中的文本

Question

我无法正确删除 Excel 列中多个单元格中的文本。该表如下所示:

123 456 7|
123 456 7|
123 456 7|

我只是想摆脱 123 456。(顺便说一句，123 456 7 都在一个单元格中)

我认为我的代码中有错误:

Sub RemoveText()

Dim cell As Range

For Each cell In Range("A1:A3")
    cell.Value = Replace(cell.Text, "123 456", "", Count:=2)
Next

End Sub

Answer 1

不需要循环或.value 与.text。简单的一个衬里就可以了:

Range("A1:A3").Replace "123 456","",xlPart

请注意，替换函数在用于公式繁重和/或数据密集型范围时可能会占用资源。