如何给两边固定文字间之间的内容添加下划线？

gggxxx1234 · 发表于 2019-5-10 18:29

例如

按合同文件和规范要求，已完成XXX检验批工程，并经自检合格，报请查验。给文档所有类似文字中间XXX加上下划线。

刀羊 · 发表于 2019-5-10 19:59

给你转到VBA版块吧

gggxxx1234 · 发表于 2019-5-10 20:19

刀羊发表于 2019-5-10 19:59
给你转到VBA版块吧

好的，谢谢版主

wanhda · 发表于 2019-5-10 20:31

两边固定文字之间输入空格，然后选中空格加下划线！

liulang0808 · 发表于 2019-5-10 20:32

公式里的不能加下划线，需要转成数值才能增加额

gggxxx1234 · 发表于 2019-5-10 20:36

liulang0808 发表于 2019-5-10 20:32
公式里的不能加下划线，需要转成数值才能增加额

粘贴为数值后怎么编代码啊，找了一天了，就找到在前面或后面加下划线的，没找到中间加的，以前上学vba没认真学，搞不明白

gggxxx1234 · 发表于 2019-5-10 20:49

wanhda 发表于 2019-5-10 20:31
两边固定文字之间输入空格，然后选中空格加下划线！

批量加怎么加啊

liulang0808 · 发表于 2019-5-10 20:49

gggxxx1234 发表于 2019-5-10 20:36
粘贴为数值后怎么编代码啊，找了一天了，就找到在前面或后面加下划线的，没找到中间加的，以前上学vba没 ...

Sub Macro1()
arr = Sheets(2).UsedRange
Sheets(1).UsedRange.Value = Sheets(1).UsedRange.Value
For j = 1 To UBound(arr)
      If Len(arr(j, 2)) > 0 Then
         Set rng = Sheets(1).UsedRange.Find(arr(j, 2), lookat:=xlPart)
         If Not rng Is Nothing Then
            i = InStr(rng, arr(j, 2))
            rng.Characters(Start:=i, Length:=Len(arr(j, 2))).Font.Underline = xlUnderlineStyleSingle
         End If
      End If
Next j

End Sub

liulang0808 · 发表于 2019-5-10 20:50

附件供参考。。。。。

gggxxx1234 · 发表于 2019-5-10 21:05

liulang0808 发表于 2019-5-10 20:50
附件供参考。。。。。

谢谢版主，问题解决了

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

[求助] 如何给两边固定文字间之间的内容添加下划线？