去除新冠疫苗接種系統導出的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了。獻給在基層奮斗的人！