如何用VBA实现对多个excel文件指定单元格部分文字添加下划线？

Question

现在我有几百个EXCEL表格文件，格式是一样的，里面文字内容局部不一样，里面有些地方需要添加下划线，手动开启文件添加下划线太慢了，有没有可能用VBA实现批量自动添加。下面是表格截图。

Answer 1

例：把下面的表格单元格数字后全部添加一个“元”字
VBA代码
Sub 批量添加指定字符()
Dim X As Range, T As String
Set myRange = Application.InputBox(prompt:="选择要在后面添加指定内容的区域", Type:=8)
T = InputBox("请输入要批量添加的字符")
For Each X In myRange
X.Value = X.Value & T
Next
End Sub
运行代码后提示选择要添加字符的单元格区域
提示填写想要添加的字符
运行结果

Answer 2

Sub A4加下划线()
Dim St$, i&, j&
St = [A4]
i = InStr(1, St, "我单位已完成了")
j = InStr(i, St, "工作")
With [A4].Characters(Start:=i + 7, Length:=j - i - 7).Font
.Underline = xlUnderlineStyleSingle
End With

i = InStr(j, St, "附件：")
j = InStr(i, St, "复核记录表")
With [A4].Characters(Start:=i + 3, Length:=j - i - 3).Font
.Underline = xlUnderlineStyleSingle
End With
End Sub追问

这是单个文件加下划线吗？怎么去遍历多个文件？有几百个文件，就是不想每个文件的去打开，我把要处理的文件放一个目录里，可以去遍历后自动加下划线吗？