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

jacksc

各位老师：部份身份证最后一位是大写X，但因人员录入关系经常会整成小写x，我用下面语句替换却不成功，请帮我看看，谢谢！
   Range([D1].Value).Replace "x", "X", xlWhole  '将[D1]单元格所示区域中 x 转换为 X

excel好玩

忘记了，不过建议录个宏看看标准格式，或去VBA板块问问

wudixin96

{:soso_e141:}直接UCASE就行了

jacksc

wudixin96 发表于 2014-1-3 15:00
直接UCASE就行了

老师：VBA语句如何写呢？

cbtaja

[d1] = ucase([d1])

jacksc

cbtaja 发表于 2014-1-3 15:22
[d1] = ucase([d1])

老师：这只针对 D1 单元格，若针对 D1:D1000这个区域呢？

cbtaja

对于多个数据的处理，当然是使用循环语句处理：
with [d1:d1000]
arr = .value
for i = 1 to ubound(arr)
arr(i,1) = ucase(arr(i,1))
next
.value = arr
end with

jacksc

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

谢谢！最终我采用下面代码解决问题，谢谢！
Sub 身份证末位字母转大写()       ''转换区域为 D1单元格所示区域
    Application.ScreenUpdating = False        '关闭屏幕闪烁
ActiveSheet.Unprotect "13628"
With Range([D1].Value)
arr = .Value
For i = 1 To UBound(arr)
arr(i, 1) = UCase(arr(i, 1))
Next
.Value = arr
End With
End Sub

joson-xu

函数也可以    =upper（）

cbtaja

看到这句ActiveSheet.Unprotect "13628"，才发现先前回答的一个问题也是楼主提问的，呵呵。谢谢你的鲜花哦！