关键字的小写数字转大写

hcm19522 · 发表于 2024-9-5 16:47

=SUBSTITUTE(REPLACE(A2,LOOKUP(1,0/ISNUMBER(-MID(A2,ROW($1:$99),1)),ROW($1:$99)),1,TEXT(LOOKUP(1,0/ISNUMBER(-MID(A2,ROW($1:$99),1)),MID(A2,ROW($1:$99),1)),"[DBNUM1]")),"○","零")

zllyyz · 发表于 2024-9-5 17:10

Qs18 发表于 2024-9-5 16:41
没有太明白，不使用循环，下一个怎么处理，其实vba的核心就是循环。看看其他的大佬怎么不用循环来处理吧 ...

.Range("A1:A" & .Cells(.Ro.Count, "A").End(xlUp).Row).Replace What:="4代安琪拉"（改为关键字数组？）, Replacement:="肆代安琪拉"（替换关键字数字？）, LookAt:=xlPart, SearchOrder:=xlByRo, MatchCase:=False

有关键字的都是特定的（所以可以考虑装入数组中，用Array填入所有关键字？然后在处理Array？）

ww87725244 · 发表于 2024-9-5 17:10

不使用循环是什么意思？

zllyyz · 发表于 2024-9-5 17:15

ww87725244 发表于 2024-9-5 17:10
不使用循环是什么意思？

直接A列使用替换（一个关键字的话是没问题的，但是数组填入所有关键字）不知道行不行

zllyyz · 发表于 2024-9-5 17:16

hcm19522 发表于 2024-9-5 16:47
=SUBSTITUTE(REPLACE(A2,LOOKUP(1,0/ISNUMBER(-MID(A2,ROW($1:$99),1)),ROW($1:$99)),1,TEXT(LOOKUP(1,0/IS ...

大大用VBA试试？

zllyyz · 发表于 2024-9-5 17:18

小凡、、、发表于 2024-9-5 15:02
仅替换从右往前的第一个数字为大写？

肯定不是哦关键字有多少位数字就替换多少大写得用VBA

ww87725244 · 发表于 2024-9-5 17:29

小凡、、、发表于 2024-9-5 15:10
=REPLACE(A2,MAX(ISNUMBER(--MID(A2,ROW($1:$99),1))*ROW($1:$99)),1,TEXT(MID(A2,MAX(ISNUMBER(--MID(A2,R ...

dbnum1的话0就不对

ww87725244 · 发表于 2024-9-5 17:31

=REDUCE("结果",A2:A6,LAMBDA(X,Y,VSTACK(X,REGEXREPLACE(Y,"\d(?=[一-龟])",TEXT(REGEXEXTRACT(Y,"\d(?=[一-龟])"),IF(REGEXEXTRACT(Y,"\d(?=[一-龟])")="0","[dbnum2]","[dbnum1]"))))))

ww87725244 · 发表于 2024-9-5 17:42

感觉再怎么，也得循环吧
或者期待大神使用不循环的方式
Sub aa()
Dim ar, i, d, ar1(), m
Set d = CreateObject("vbscript.regexp")
With d
.Global = True
.Pattern = "\d(?=[一-龟])"
End With
With Sheet1
ar = .Range("a2:a6")
ReDim ar1(1 To UBound(ar), 1 To 1)
For i = 1 To UBound(ar)
If d.Execute(ar(i, 1))(0) = "0" Then
m = "[dbnum2]"
Else
m = "[dbnum1]"
End If
ar1(i, 1) = d.Replace(ar(i, 1), Application.WorksheetFunction.Text(d.Execute(ar(i, 1))(0), m))
Next
.[c2].Resize(UBound(ar1)) = ar1
End With
Set d = Nothing
End Sub

复制代码

zllyyz · 发表于 2024-9-5 18:16

Qs18 发表于 2024-9-5 16:41
没有太明白，不使用循环，下一个怎么处理，其实vba的核心就是循环。看看其他的大佬怎么不用循环来处理吧 ...

或者在用循环的情况下，不以B列（这只是展示关键字的数据）的关键字为基础需指定KeyN = Array("5年山大王", "4代安琪拉", "0条水鱼") 进行处理？

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

关键字的小写数字转大写

评分