1、如图我们可以在开始栏里用添加下划线符号对部分内容进行更改格式
2、但是，当你松开整个单元格，进行下一个操作时，你会发现所有的字体读被加了下划线
3、在这种情况下，我使用VBA
Sub test()
'Sheet1.Range("F5").value="TCL-罗格朗、普天天纪、大唐电信"
Dim intI As Integer
intI = SetCharUnderline(Sheet1.Range("F5"), "、普天天纪、大唐电信")
End Sub
Function SetCharUnderline(rgSource As Range, strFind As String, Optional intStart As Integer = 1) As Integer
Dim intEnd As Integer
Dim intLength As Integer
Dim strSource As String
strSource = rgSource.Value
intEnd = InStr(intStart, strSource, strFind)
If intEnd > 0 And intEnd > intStart Then
intLength = intEnd - intStart
rgSource.Characters(Start:=intStart, Length:=intLength).Font.Underline = xlUnderlineStyleSingle
SetCharUnderline = intEnd + Len(strFind)
Else
SetCharUnderline = 1
End If
End Function
4、但是，效果相同。的确是对TCL-罗格朗单独添加了下划线，但是最终是所有的内容统一都哟下划线
5、最后，只好更改单元格式，采用文本格式，才能单独对部分字体加下划线
6、如果大家有更好的方法，可以互相讨论一下
