[已解决]某列的单元格为“中国”时自动更改为“中华人民共和国”，否则保持原值不变

colour250 · 发表于 2016-3-23 08:53

本帖最后由 colour250 于 2016-3-24 17:22 编辑

某列的单元格为“中国”时自动更改为“中华人民共和国”，否则保持原值不变，VBA怎么写，谢谢。

最佳答案

02761752696

2016-3-24 16:07

colour250 发表于 2016-3-24 15:54
谢谢，不过这个是公式，我想用VBA语句。如果是VBA，这个怎么写呢？

着这样吗

Sub zg()
For i = 1 To 100
If Cells(i, 2).Value = "中国" Then Cells(i, 2).Value = "中华人民共和国"
Next
End Sub

QCW911 · 发表于 2016-3-23 08:54

ctrl+F 替换

colour250 · 发表于 2016-3-23 09:22

QCW911 发表于 2016-3-23 08:54
ctrl+F 替换

这个我知道，可是我想用VBA，因为报表是通过用VBA查询复制得来的数据。所以想用VBA自动执行。谢谢。

datongye · 发表于 2016-3-24 13:43

=if(a1="中国","中华人民共和国",a1)

colour250 · 发表于 2016-3-24 15:54

datongye 发表于 2016-3-24 13:43
=if(a1="中国","中华人民共和国",a1)

谢谢，不过这个是公式，我想用VBA语句。如果是VBA，这个怎么写呢？

02761752696 · 发表于 2016-3-24 16:07

colour250 发表于 2016-3-24 15:54
谢谢，不过这个是公式，我想用VBA语句。如果是VBA，这个怎么写呢？

着这样吗

Sub zg()
For i = 1 To 100
If Cells(i, 2).Value = "中国" Then Cells(i, 2).Value = "中华人民共和国"
Next
End Sub

colour250 · 发表于 2016-3-24 17:20

02761752696 发表于 2016-3-24 16:07
着这样吗

Sub zg()

是的，就这样，谢谢!

02761752696 · 发表于 2016-3-24 19:41

colour250 发表于 2016-3-24 17:20
是的，就这样，谢谢!

呵呵那就选个最佳啊

		自动登录	找回密码
密码			注册