EXECL宏 Characters

Sub AddStrikethroughToPartChars()

Dim rng As Range

Set rng = ThisWorkbook.ActiveSheet.Range("E6")

rng.Characters(Start:=3, Length:=2).Font.Strikethrough = True

rng.Characters(Start:=6, Length:=2).Font.Strikethrough = True

End Sub

为啥上面WPS伤结果只有rng.Characters(Start:=6, Length:=2).Font.Strikethrough = True，而execl可以保留两个