在excel中怎么在一组数字里面的一个数字上加上下划线?例如123648一组数字只在4下面加下划线。

例如123648一组数字只在4下面加下划线。不是一组数字,是一列里面有很多数字,有没有个比较简单的方法,谢谢大神了
有很多,就是在那个C下面加上下划线,一个一个太麻烦了,有没有简单的方法?

如果是纯数字,需转换成文本!

选中需要操作的内容,设定下划线


你用 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

温馨提示:内容为网友见解,仅供参考
第1个回答  2013-09-25
选中要加下划线的数字,然后Ctrl+U。
那就是要替换功能把C替换为带下划线的C(替换为的内容在格式里设置下加下划线)。本回答被提问者采纳
第2个回答  2013-09-25
你指的是在word里加吗
如果是在word中,那就选中4这个数字,然后点下划线,就OK了
第3个回答  2013-09-25
很简单的,呵呵
=substitute(a1,"4","-4")

如果文本中有多个4,那所有的4的前面都增加了 -
这个功能相当于 查找与替换

如果你只想让第一个4前面添加-,改下公式即可(查找替换整不了)
=substitute(a1,"4","-4",1)

substitute函数格式

=substitute(文本,想要替换掉的字符串,替换后的字符串,首个字符串目标出现的位置)

希望上述问题对你有所帮助。

晕,看错题了,你是要加下划线
下划线属于格式,而函数公式改变不了格式,只能用VBA了

在excel中怎么在一组数字里面的一个数字上加上下划线?例如123648一组数 ...
你用 alt + F11进入 VBA,将以下代码复制进去,参数设下,运行就ok了 Sub set_font()wz = 4 '设定下划线开始位置 cd = 1 '设定下划线的字数 clmn = 1 '设定需设定的列 rowk = 1 '设定需设定的开始行 rowj = 10 '设定需设定的结束行 With ActiveSheet For i = rowk To ro...

在excel中怎么在一组数字里面的一个数字上加上下划线?例如123648一组数 ...
选中要加下划线的数字,然后Ctrl+U。那就是要替换功能把C替换为带下划线的C(替换为的内容在格式里设置下加下划线)。

相似回答