如何只替换成数字前面的字母

snqig

如何只替换成数字前面的字母
例如：
p1,p2,p3,p01p20,picture,p45,pho,pne,P90
替换成：
上1,上2,上3,上01上20,picture,上45,pho,pne,上90


谢谢

daibao88

查找p([0-9])     替换上/1    勾选使用通配符

snqig

替换不对，出来是。
/1,/1,/1,/11/10,picture,/15,pho,pne,P90

snqig

413191246se

s=shang4
Sub test()
    ActiveDocument.Content.Find.Execute "[pP]([0-9])", , , 1, , , , , , "s\1", 2
End Sub

snqig

谢谢@daibao88 可以了

snqig

能用VBA 实显这个功能吗。
1 在现在一个excel 建立一个字典
格式如图

字典

在word 文档翻译

word

Desktop.zip (16.5 KB, 下载次数: 0)

2022-1-15 16:32 上传

点击文件名下载附件

准备用这种方法:
Sub find_1()
Call P_1
Call N_1

End Sub

Sub P_1()
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[pP]([0-9])"
        .Replacement.Text = "上/1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub N_1()
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[nN]([0-9])"
        .Replacement.Text = "下/1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


但须要翻译的字母太多

如何用字典的功能

minchar

一楼没问题，就是换成\1，不是/1

hcm19522

B2:J4{=IFERROR(REPLACE(A2,SMALL(IF((MID(A2,ROW($1:$98),1)="p")*ISNUMBER(MID(A2,ROW($2:$99),1)*1),ROW($1:$98)),1),1,"上"),"")

K2:K4=LOOKUP(1,0/(B2:J2<>""),B2:J2)

loquat

\1不是/1
我是字数补丁