vba设置url下划线

首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码，然后运行 Sub 为任意字符加下划线() Dim r As Range, i%, First$, inputt, indexx inputt=InputBox("下划线对象", "请输入加下划线之对象", "#") Set indexx=Application.InputBox("请输入欲加下划线之单元格区域,也可以用 鼠标选择", "定位", "A1", , , , , 8) Application.ScreenUpdating=False Set r=indexx.Find(inputt, lookat:=xlPart) If Not r Is Nothing Then First=r.Address Do For i=1 To Len(r) If Mid(r, i, 1)=inputt Then r.Characters(Start:=i,Length:=1).Font.Underline=xlUnderlineStyleSingle End If Next Set r=indexx.FindNext(r) Loop Until r.Address=First End If Application.ScreenUpdating=True End Sub

使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将d出输入下划线对象之对话框2.17，默认为“#”，可以输入任意字

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

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

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

提示填写想要添加的字符

运行结果

---