作者：乔山办公网日期：
返回目录：excel表格制作
在A表格的B2单元格输入以下公式，然后向下填充公式
=VLOOKUP(A2,B!A:B,2,0)
你先要建立一个知对应表格,如在SHEET1工作表的A列写入道"民族"....等内容,B列写入专各个词所对应的代码
这样只在你在SHEET2单元格写入"民族"等词,B1单元格写入公式属 =VLOOKUP(A1,SHEET1!A:B,2,) 就能得出相应的代码了
http://office.microsoft.com/zh-cn/excel-help/RZ101862716.aspx?section=3
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub 随机()
Dim x As Integer
Dim y As Integer
a = 0
Randomize '初始zhidao化
10:
x = Rnd() * (9 - 2) + 2 '生成2至8的随机数，代表行数
y = Rnd() * (9 - 2) + 2 '生成2至8的随机数，代表列数
Range("b2:i9").Interior.ColorIndex = xlNone '去掉填充色
Cells(x, y).Interior.ColorIndex = 3 '填充为红色
DoEvents '释放回程序控制权，允许其他事件
Sleep (10) '延时ms
DoEvents '释放程序控制权，允许其他事件
If a = 1 Then Exit Sub '如果按下“结答束”钮则终止程序
GoTo 10
End Sub
Sub 结束()
a = 1 '结束标志
End Sub
假设A列是你要转百换成代码的民族，在B1输入公式度=vlookup(A1,D:E,2,0)，回车问。后面的往下拉就可以了。
D：答E这两内列，前面一列放民族名称，后容面一列放对应的代码。
如果D：E两列放在另外一张表上，比如Sheet2上，公式就改为：=vlookup(A1,Sheet2!D:E,2,0)