从新冠疫苗接种系统导出的excel表中，所有有效单元格都加了干扰字符，很多时候需要正常的数据做对比等用途，这时候这此干扰字符特别讨厌。
类似这样的，看上去是正常的，其实单元格内容加了一些干扰字符
要去除这些，非常的费事儿，特别大量数据的时候，基本不可能人工去除。
但用vba脚本，那就简单多了。
Sub Test()
Dim i, s, c As Integer
Dim column As String
column = "E" ‘所在列
For c = 2 To 630 ‘开始行和结束行
s = Len(Sheet1.Range(column & c).Value)
For i = 1 To s
‘ 比正常字号小的一律删除，我这里导出的正常字号是9磅
If (Len(Sheet1.Range(column & c).Value) > 0) Then
If (Sheet1.Range(column & c).Characters(i, 1).Font.Size < 9) Then
Sheet1.Range(column & c).Characters(i, 1).Delete
i = i - 1
End If
End If
Next
Next
End Sub
很久很久没用Excel了。其实还可以扩展一下。自动全表格去除。懒得弄了。
献给在基层奋斗的人！