表格里显示的和看到的不一样怎么办？

ggmmlol

用VBA清理干扰字符：
首先，要手工完成一项准备工作：选中一个需要清理干扰字符的单元格，把它的字符串开始位置的连续干扰字符都删除，直到第一个需要保留的字符之前为止。这个单元格将用来做为需要保留字符的样本单元格；
然后，选中所有需要清理干扰字符的单元格区域，运行以下宏代码，按提示选择上一步预备的保留字符样本单元格，点确定，代码将会自动完成对干扰字符的清理。

1. Sub CleanConfusionCharacters()
   
2.     Dim rng0 As Range, rng1 As Range
   
3.     Dim cel As Range, ar As Range, s As String
   
4.     Dim i As Long, sz As Single, cl As Double, k As Long
   
5.     On Error Resume Next
   
6.     Set rng0 = ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants)
   
7.     If rng0 Is Nothing Then Exit Sub
   
8.     Set rng1 = Application.InputBox("请选择保留字符的样本单元格", "清理混淆字符", ActiveCell.Address(0, 0), Type:=8)
   
9.     If rng1 Is Nothing Then Exit Sub
   
10.     sz = rng1.Characters(1, 1).Font.Size
    
11.     cl = rng1.Characters(1, 1).Font.Color
    
12.     If MsgBox("保留字符:" & sz & "号，字体RGB颜色值：" & cl & vbLf & "是否继续?", vbYesNo) = vbNo Then Exit Sub
    
13.     Application.ScreenUpdating = False
    
14.     For Each ar In rng0.Areas
    
15.         For Each cel In ar
    
16.             s = Empty
    
17.             For i = Len(cel.Text) To 1 Step -1
    
18.                 With cel.Characters(i, 1)
    
19.                     If .Font.Size <> sz Or .Font.Color <> cl Then .Text = ""
    
20.                 End With
    
21.             Next
    
22.             cel.Font.Size = sz
    
23.             cel.Font.Color = cl
    
24.             k = k + 1
    
25.             If k = 100 Then k = 0: DoEvents
    
26.         Next
    
27.     Next
    
28. End Sub

复制代码

缘宇文

丢丢表格 发表于 2021-7-4 13:07
非常简单的方法，就是让他重做。
因为他做的表 乌七八糟。。。。
要是楼主的雕虫，考你们的眼力，那就 ...

不是乱做的，好像是自动出现的。

缘宇文

bajifeng 发表于 2021-7-3 19:45
用我的附件，点一下按钮，2秒钟搞定

感谢指导，宏确实更好。

缘宇文

ggmmlol 发表于 2021-7-5 14:35
用VBA清理干扰字符：
首先，要手工完成一项准备工作：选中一个需要清理干扰字符的单元格，把它的字符串开 ...

这个太强了，对于菜鸟才来，要好好好好的学习才行。谢谢！