excel中如何把下划线以外的内容删除?涉及工作量太大,逐行删除太不人性化...

发布网友发布时间：2024-10-03 04:36

共4个回答

热心网友时间：2024-10-19 05:13

通过VBA来判断指定区域每个单元格里每个字符的格式，如果没有下划线，就删除。
'假设区域是 A1:J10这10行，10列的范围。

Sub DeleNoneLine()
For i = 1 To 10
For j = 1 To 10
If Len(Cells(i, j)) > 0 Then
For k = 1 To Len(Cells(i, j))
If Cells(i, j).Characters(Start:=k, Length:=1).Font.Underline = xlUnderlineStyleNone Then
Cells(i, j).Characters(k, 1).Delete
k = k - 1
End If
Next k
End If
Next j
Next i
End Sub

热心网友时间：2024-10-19 05:10

问题描述不清楚，俺也想知道咋做。

热心网友时间：2024-10-19 05:10

什么是“下划线以外的内容”？贴个图看看

热心网友时间：2024-10-19 05:10

除下划线外全选然后点编辑——清除——全部