如何获得省份证号码里面的省份信息？
1、打开Excel视图－工具栏－控件工具箱，在控件工具箱中，找到“命令按钮”，在表格空白出，画一个命令按钮，。
2、双击刚才画出的命令按钮，进入command_button_click()代码窗口。
3、输入以下代码：
For i = 1 To 5 ‘从第一行开始，到第五行，５是你的实际数据数量
Select Case Left(Sheet1.Cells(i, 1), 2) ’取身份证号码的前两位
Case 11 ‘１１代表北京
Sheet1.Cells(i, 2) = "北京市"
Case 12 ’１２代表天津
Sheet1.Cells(i, 2) = "天津市"
Case 13
Sheet1.Cells(i, 2) = "河北省"
Case 14
Sheet1.Cells(i, 2) = "山西省"
Case 15
Sheet1.Cells(i, 2) = "内蒙古自治区"
Case 21
Sheet1.Cells(i, 2) = "辽宁省"
Case 22
Sheet1.Cells(i, 2) = "吉林省"
Case 23
Sheet1.Cells(i, 2) = "黑龙江省"
Case 31
Sheet1.Cells(i, 2) = "上海市"
Case 32
Sheet1.Cells(i, 2) = "江苏省"
Case 33
Sheet1.Cells(i, 2) = "浙江省"
Case 34
Sheet1.Cells(i, 2) = "安徽省"
Case 35
Sheet1.Cells(i, 2) = "福建省"
Case 36
Sheet1.Cells(i, 2) = "江西省"
Case 37
Sheet1.Cells(i, 2) = "山东省"
Case 41
Sheet1.Cells(i, 2) = "河南省"
Case 41
Sheet1.Cells(i, 2) = "湖北省"
Case 43
Sheet1.Cells(i, 2) = "湖南省"
Case 44
Sheet1.Cells(i, 2) = "广东省"
Case 45
Sheet1.Cells(i, 2) = "广西壮族自治区"
Case 46
Sheet1.Cells(i, 2) = "海南省"
Case 50
Sheet1.Cells(i, 2) = "重庆市"
Case 51
Sheet1.Cells(i, 2) = "四川省"
Case 52
Sheet1.Cells(i, 2) = "贵州省"
Case 53
Sheet1.Cells(i, 2) = "云南"
Case 54
Sheet1.Cells(i, 2) = "西藏自治"
Case 61
Sheet1.Cells(i, 2) = "陕西省"
Case 62
Sheet1.Cells(i, 2) = "甘肃省"
Case 63
Sheet1.Cells(i, 2) = "青海省"
Case 64
Sheet1.Cells(i, 2) = "宁夏回族自治区"
Case 65
Sheet1.Cells(i, 2) = "新疆维吾尔自治区"
Case 71
Sheet1.Cells(i, 2) = "台湾省"
Case 81
Sheet1.Cells(i, 2) = "香港特别行政区"
Case 91
Sheet1.Cells(i, 2) = "澳门特别行政"
End Select
Next i ‘结束循环
4、关闭代码窗口，点击控件工具栏中的第一个按钮，“退出设计模式”
5、点击刚才画出的按钮，完成任务！
