关键字的小写数字转大写

zllyyz · 发表于 2024-9-5 14:58

本帖最后由 zllyyz 于 2024-9-5 17:26 编辑

请大神们指教（关键字都是特定的，因此数量也不多，是否可以直接使用在A列使用Replace 掉（关键字写入数组）？），谢谢：

小凡、、、 · 发表于 2024-9-5 15:02

仅替换从右往前的第一个数字为大写？

小凡、、、 · 发表于 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,ROW($1:$99),1))*ROW($1:$99)),1),"[dbnum2]"))
老版本数组三键，你的结果是小写数字，如果要小写数字就text dbnum1

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

小凡、、、发表于 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 ...

用VBA、SQL哦关键字只是为了方便展示才在B列显示

Qs18 · 发表于 2024-9-5 16:00

Sub qs()
Dim ar, i, dic, arr
Set dic = CreateObject("scripting.dictionary")
ar = [{0,"零";1,"壹";2,"贰";3,"叁";4,"肆";5,"伍";6,"陆";7,"柒";8,"捌";9,"玖"}]
For i = 1 To UBound(ar)
dic(ar(i, 1)) = ar(i, 2)
Next
r = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
arr = Sheet1.Range("a2").Resize(r - 1, 3).Value
For i = 1 To UBound(arr)
s = arr(i, 1)
t = Val(Left(arr(i, 2), 1))
arr(i, 1) = Replace(s, arr(i, 2), "")
arr(i, 2) = VBA.Replace(arr(i, 2), t, dic(t))
arr(i, 3) = arr(i, 1) & arr(i, 2)
Next
Sheet1.Range("c2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 3)
End Sub

复制代码

Qs18 · 发表于 2024-9-5 16:05

试试...........

Qs18 · 发表于 2024-9-5 16:06

试试..............

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

Qs18 发表于 2024-9-5 16:06
试试..............

使用了循环，且第二条注意事项未达成，再试试？

Qs18 · 发表于 2024-9-5 16:41

zllyyz 发表于 2024-9-5 16:30
使用了循环，且第二条注意事项未达成，再试试？

没有太明白，不使用循环，下一个怎么处理，其实vba的核心就是循环。看看其他的大佬怎么不用循环来处理吧！

grayw · 发表于 2024-9-5 16:43

本帖最后由 grayw 于 2024-9-5 16:45 编辑

zllyyz 发表于 2024-9-5 16:30
使用了循环，且第二条注意事项未达成，再试试？

这难道不是求助帖？再试试。。。

这个例子有点实用，等一个大虾~

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

关键字的小写数字转大写

评分

评分

评分