從新冠疫苗接種系統匯出的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了。其實還可以擴充套件一下。自動全表格去除。懶得弄了。

獻給在基層奮鬥的人！