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

例：把下面的表格单元格数字后全部添加一个“元”字

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

运行代码后提示选择要添加字符的单元格盯老区域

提示填写想颂则谨要添加的字符

运行结果

选择工作表标签，右击--查看代码，双击"thisworkbook"标签，将下粗卜面返饥的代码漏凳返拷入代码框内，关闭代码框就行了。

private

sub

workbook_sheetselectionchange(byval

sh

as

object,

byval

target

as

range)

target.activate

activesheet.pictures.insert("c:\11.gif").select

end

sub

---