小写转大写怎样转，i不转,看似简单，难度有点高

justdoit2003 · 发表于 2022-11-21 18:24

=IF(ISNUMBER(FIND("i",B2)),SUBSTITUTE(UPPER(SUBSTITUTE(B2,"i",REPT(" ",99))),REPT(" ",99),"i"),UPPER(B2))

复制代码

准提部林 · 发表于 2022-11-21 19:10

54個字//
=SUBSTITUTE(UPPER(SUBSTITUTE(B2,"i","/i\")),"/I\","i")

這本來用公式就可以的//不慢的

woniu3721 · 发表于 2022-11-22 00:42

smsn 发表于 2022-11-21 08:06
i 换 DUMMY_ZZZ
I 换 DUMMY_YYY
所有字，统一转大写

这是个办法，改头换面，避开大部队，然后重回江湖

woniu3721 · 发表于 2022-11-22 00:43

准提部林发表于 2022-11-21 19:10
54個字//
=SUBSTITUTE(UPPER(SUBSTITUTE(B2,"i","/i\")),"/I\","i")

这办法也不错

woniu3721 · 发表于 2022-11-22 00:44

justdoit2003 发表于 2022-11-21 18:24

这公式有点长，但还是搞得到事

demonimissyou · 发表于 2022-11-23 16:48

Sub 正则()
Dim regex1, I, j, k, l, arr, brr
I = [B65536].End(xlUp).Row
arr = Range("B2:B" & I)
ReDim brr(1 To UBound(arr), 1)
Set regex1 = CreateObject("VBscript.regexp")
regex1.Global = True
regex1.Pattern = "[I]+"
regex1.ignorecase = True
For j = 1 To UBound(arr)
brr(j, 1) = UCase(arr(j, 1))
Cells(j + 1, 3) = regex1.Replace(brr(j, 1), "i")
Next
End Sub

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

[求助] 小写转大写怎样转，i不转,看似简单，难度有点高