如何在WPS表格单元格中改变部分字体的格式

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、如果大家有更好的方法，可以互相讨论一下