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

1、如图我们可以在开始栏里用添加下划线符号对部分内容进行更改格式

2、但是，当你松开整个单元格，进行下一个操作时，你会发现所有的字体读被加了下划线

3、在这种情况下，我使用VBASub test() 'Sheet1.Range("F5").value="TCL-罗格朗、普天天纪、大唐电信" Dim intI As Integer intI = SetCharUnderline(Sheet1.Range("F5"), "、普天天纪、大唐电信") End SubFunction 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 IfEnd Function

4、但是，效果相同。的确是对TCL-罗格朗单独添加了下划线，但是最终是所有的内容统一都哟下划线

5、最后，只好更改单元格式，采用文本格式，才能单独对部分字体加下划线

6、如果大家有更好的方法，可以互相讨论一下