excel中如何快速替换多个内容，简单VBA代码一键完成

这个在日常办公中，经常遇到各种系统导出的数据，比如家庭地址，是“北京市东城区安定门街道办事处五道营社区居委会”这样的全名。看起来不是很简明。而我们实际需要的可能就只是“安定门五道营”这个关键信息。

excel中，就要用Crtl H来替换，但是要把北京市东城区安定门街道办事处五道营社区居委会”变成“安定门五道营”，就需要替换3次。如果只是操作一次，那3次就3次吧，毕竟就麻烦这一回。

但是，如果是每个月这么操作一回甚至是多回大量数据，那就显得很麻烦了。因此，我想用VBA帮忙，只用改一次，下次直接粘贴直接用。

打开excel，按Alt F11，打开VBA编辑器，把以下代码粘贴进去，然后按F5执行。

在弹出的窗口中，填写要替换信息所在单元格范围，如A2：A9。

最后点击，确定，OK了，是不是超简单。

这段代码还针对数据量大容易卡死进行了优化，即时是几十万条数据，也只是秒速完成。

最后把VBA代码放下面：

Sub replaceDataInColumn()

Dim targetRange As Range

Dim data As Variant

Dim i As Long, j As Long

Dim targetCol As String

On Error Resume Next