关键字的小写数字转大写

limonet

楼主想法是好的，但做不到，函数参考。

zllyyz

limonet 发表于 2024-9-5 18:40
楼主想法是好的，但做不到，函数参考。

那应该只能用VBA的循环了 大写的映射表用字典，关键字用数组，然后替换

limonet

关键字：马甲

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "(\d)(?=[一-龥])"
        For i = 2 To 6
            Cells(i, "C") = Application.Replace(Cells(i, "A"), .Execute(Cells(i, "A"))(0).firstindex + 1, 1, Application.Text(.Execute(Cells(i, "A"))(0).submatches(0), "[dbnum1]"))
        Next i
    End With
End Sub

zllyyz

limonet 发表于 2024-9-5 19:06
Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")

如果需要更改特定的关键字如Array("5年山大王", "4代安琪拉", "00条水鱼") 其他不需要处理，如何更改正则代码呢？

limonet

(\d)(?=年山大王|代安琪拉|条水鱼)

zllyyz

limonet 发表于 2024-9-6 10:26
(\d)(?=年山大王|代安琪拉|条水鱼)

正则不会改，当内容有一位或多位数字需要转换的时候（ "00条水鱼", "4代安琪拉"）这样改好像是不对的？

今铭昔

zllyyz

今铭昔 发表于 2024-9-6 11:21

这是 Java？能在EXCEL 里使用？

飞天篮球猪

仅供参考