如果是纯数字,需转换成文本!
选中需要操作的内容,设定下划线
你用 alt + F11进入 VBA,将以下代码复制进去,参数设下,运行就ok了
Sub set_font()
wz = 4 '设定下划线开始位置
cd = 1 '设定下划线的字数
clmn = 1 '设定需设定的列
rowk = 1 '设定需设定的开始行
rowj = 10 '设定需设定的结束行
With ActiveSheet
For i = rowk To rowj
.Cells(i, clmn).Select
With ActiveCell.Characters(Start:=wz, Length:=cd).Font
.Underline = xlUnderlineStyleSingle
End With
Next
End With
End Sub