excel 程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

代码	年份	省份	变量1
1	1998	北京
1	1999	北京
2	1999	天津
3	1999	河北
4	2000	河南
7	1999	湖北
9	1999	湖南

现有如上数据 想对省份进行赋值 例如 所有是北京的省份赋值为10000  所有是天津的赋值为11000.
由于数据很多 直接用筛选 添加的方法很慢
请问有好心人知不知道有什么程序能够实现？？？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce xcel cel 知不知道 北京 好心人 河南 河北

if 函数 和  vlookup 都可以  

1. Sub clicks()
   
2. Dim 省份 As Range
   
3. Dim 变量1 As Range
   
4. Set 省份 = Worksheets("Sheet1").Range("C2:C8")
   
5. Set 变量1 = Worksheets("Sheet1").Range("D2:D8")
   
6. For Each 省份 In Range("C2:D8")
   
7. If 省份 = "北京" Then
   
8.    变量1 = "100000"
   
9. ElseIf 省份 = "天津" Then
   
10.    变量1 = "100100"
    
11. Else
    
12.    变量1 = "你好"
    
13. End If
    
14. Next 省份
    
15. End Sub

复制代码

代码


这和代码不是很正确，晚上回来在更改
二个