在Excel中快速完成批量替换

最近打标签由于数据库特别混乱大多需要我手动校验后进行调整，所以使用python来自动完成这项工作变得不切实际，所以只能自己一个人慢慢做，这极大降低了效率，而发现其中一项工作是将一些名称完成固定的替换，这个功能几乎每个数据都要用，所以我就想着通过Excel本身自带的编程功能来实现，发现效果还可以，这用的应该是很经典的VB语言。我并没有学过，但是简单的操作一下还是可以的。

编写代码是在这里进入：

代码如下：

Sub Excel()
Dim arr, brr, j&, i&
arr = Range("G1:H8"): brr = Range("A:A")
For j = 1 To UBound(brr)
For i = 1 To UBound(arr)
brr(j, 1) = Replace(brr(j, 1), arr(i, 1), arr(i, 2))
Next i
Next j
Range("A:A").Value = brr
End Sub

编写好后点击蓝色圆圈中的按钮即可运行参数解析：("G1:H8") 从G1到G8是原名称，H1到H8是替换后的名称。("A:A") 替换的范围。

替换前：

替换后：

这是我刚了解到的在Excel中编码，以前完全没用过，能提高一定的效率。