身份证末位小写x 替换为大写 X

jacksc · 发表于 2014-1-3 17:55

cbtaja 发表于 2014-1-3 17:50
看到这句ActiveSheet.Unprotect "13628"，才发现先前回答的一个问题也是楼主提问的，呵呵。谢谢你的鲜花哦！ ...

这是我应该做的。有空帮我看看http://club.excelhome.net/thread-1085513-1-1.html 这个问题，谢谢！

封刀听雨 · 发表于 2014-1-4 20:18

用UPPER（）最简单哦

cks55 · 发表于 2014-1-4 21:55

函数也可以 =upper（）

ikosya · 发表于 2014-1-5 11:06

使用校对里的自动更正不可以吗？

QQ图片20140105110554.jpg

同心/ty · 发表于 2024-6-19 15:27

cbtaja 发表于 2014-1-3 16:03
对于多个数据的处理，当然是使用循环语句处理：
with [d1:d1000]
arr = .value

Sub 身份证末位字母转大写()
Columns("d:d").Select
Range("d1").Activate
Selection.Replace What:="x", Replacement:="X" '身份证字母小写改大写
End Sub

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

[已解决] 身份证末位小写x 替换为大写 X