求助大神！怎么用VB写代码替换区域代码

风啸尘殇

我们市有10个区县，每次做excel表都有10个区县的代码，分别是370303,370302,370304,370306,370305,370321,370323,370322,370307,370309，请问怎么把这10个区县代码变成区县名称a,b,c,d,e,f,g,h,i,j啊，请大神不吝赐教！！！

（之前我每次都用VLOOKUP函数，把名称V出来再删掉代码那一列，感觉很麻烦）

dragonthree

t = [{"370303",  "370302";"a",  "b"}] ，然后用字典

longwin

可以用查找替换......“每次做excel表都有10个区县的代码“这些代码的来源哪里?可以从源头处理

shiruiqiang

2列，左边数字，右边英文，做成字典

ykcbf1100

类似这样就好了：
a = Array("370303", "370302", "370304", "370306", "370305", "370321", "370323", "370322", "370307", "370309")
b = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")
For x = 0 To UBound(a)
  If st = a(x) Then st = b(x)
Next

quqiyuan

大概这样处理咯，供参考