最近打标签由于数据库特别混乱大多需要我手动校验后进行调整,所以使用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中编码,以前完全没用过,能提高一定的效率。