EXCEL如何批量添加下划线

cctoyo

EXCEl，一列数据，每一行里面有两个数字，需要为这两数字添加下划线。，所有内容都在A列，有一千多行，所以需要批量的方法，比如运用宏。
求大神帮忙写个，感激不尽。
这是原来的数据。
目标格式为中间这两个数字添加下划线，其他字不需要。

目标要求

duquancai

1. Sub shishi()
   
2.     Dim rg As Range, mt, n%, m%
   
3.     With CreateObject("VBScript.Regexp")
   
4.         .Global = True
   
5.         .Pattern = "[\d.]+"
   
6.         For Each rg In Range("a1", Cells(Rows.Count, 1).End(3))
   
7.             For Each mt In .Execute(rg)
   
8.                 m = mt.FirstIndex: n = mt.Length
   
9.                 rg.Characters(m + 1, n).Font.Underline = 2
   
10.             Next
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

jiminyanyan

测试好用。。。。

cctoyo

duquancai 发表于 2016-9-7 20:07

非常感谢。

zjgwzj

也可以复制到Word，打开查找框，勾选“使用通配符”复选框，查找“[0-9]{1,3}”，接下来就可以为中间的数字设置下划线了。