求助，单元格中部分关键字之间的字体加粗

zrx088

求助，单元格中部分关键字之间的字体加粗；


比如单元格中这样一段话： “ 某物业，价值A为人民币6,666,666元（大写人民币xxxxxx万元整），单价为人民币xx,xx元/平方米；价值B为人民币xxx,xxx元（大写人民币xxxxxx元整）。”


我想利用宏将其加粗成：

““ 某物业，价值A为人民币6,666,666元（大写人民币xxxxxx万元整），单价为人民币xx,xx元/平方米；价值B为人民币xxx,xxx元（大写人民币xxxxxx元整）。”

即 ”人民币“至”万元整）“中间的部分、”人民币“至”/平方米“的部分

word中有通配符的办法，但是excel似乎没有，请教各位大佬有没有方法实现！感激不尽！！

zrx088

查了好久只发现以下方法：

Sub 加粗()

     With ActiveSheet

        For Each c In Range("A1")

              With c

                cv = .Value

                I = InStr(1, cv, "人民币", 1)

                .Characters(I, 字符数).Font.Bold = True

              End With

Next


     End With

End Sub

但是运行后只能加粗头一段”人民币，且后面的字符数由于实际会改变，无法确定

cutecpu

Sub demo()
   Set re = CreateObject("vbscript.regexp")
   re.Global = True
   re.Pattern = "人民[^元]+元(（[^）]+）|/平方米)"
   Set Match = re.Execute([a1])
   For Each m In Match
      [a1].Characters(m.firstindex + 1, Len(m)).Font.Bold = True
   Next
End Sub


祝順心，南無阿彌陀佛！

砂海

回过头来说,
感觉 用 Word 中的 "域" 更对路 , 毕竟 Excel 排版没那么方便
参见: "域" , "邮件合并"