Question

EXCEL 怎么用vba或者宏 实现IF语句的多层循环（20层）

我想实现
F列内数据为港口名

港口名有20个

D列数据相应批量填充为对应的港口代码（每个港口名对应唯一的代码）

例如
如果F1=SHANGHAI 那么D1=SH01
F2=QINGDAO 那么D2=QD7
F3=SHANGHAI 那么F3=SH01

等等

我想到的思路是用宏的if语句的多层套用（20层）。
怎么实现呢？
怎么批量使用宏呢？
每个文件都要这么处理的

Answer 1

Sub test5()
For i = 1 To 1000
gk = Range("F" + CStr(i))
temp = Empty
Select Case gk
Case "SHANGHAI"
temp = "SH01"
Case "QINGDAO"
temp = "QD7 "

End Select
Range("D" + CStr(i)) = temp
Next
End Sub

中间自己补充

问题补充：怎么批量使用宏呢？
每个文件都要这么处理的

把代码所在的工作薄打开,再打开待处理的文件,运行宏即可,

Answer 2

可以用vlookup函数。
参考：
http://tieba.baidu.com/f?kz=49511214

如果用vba，可以考虑select...case语句

Answer 3

设个变量
i 1to20

Answer 4

用Select case 吧