去除新冠疫苗接种系统导出的Excel表格数据中的干扰字符。

从新冠疫苗接种系统导出的excel表中，所有有效单元格都加了干扰字符，很多时候需要正常的数据做对比等用途，这时候这此干扰字符特别讨厌。

类似这样的，看上去是正常的，其实单元格内容加了一些干扰字符

要去除这些，非常的费事儿，特别大量数据的时候，基本不可能人工去除。

但用vba脚本，那就简单多了。

Sub Test()
    Dim c, r, i, s As Integer
    Dim columns, rows As Integer
    columns = Sheet1.UsedRange.columns.Count '总共多少列 这个属性获取有效列数的有时候不准，不准就手工输入具体的列数
    rows = Sheet1.UsedRange.rows.Count '总共多少行 包含表头 有时候会不准，不准手工输入行数
    'MsgBox Sheet1.Cells(2, 1).Value (行，列)
    For c = 1 To columns
        For r = 1 To rows
            s = Len(Sheet1.Cells(r, c).Value)
            For i = 1 To s
                If (Len(Sheet1.Cells(r, c).Value) > 0) Then
                    '比正常字号小的一律删除，我这里导出的正常字号是9磅
                    If (Sheet1.Cells(r, c).Characters(i, 1).Font.Size < 9) Then
                        Sheet1.Cells(r, c).Characters(i, 1).Delete
                        i = i - 1
                    End If
                End If
            Next
        Next
    Next
End Sub

很久很久没用Excel了。献给在基层奋斗的人！