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