VBA疫苗数据清洗

Sub 疫苗数据清洗()

'其实很简单，原表中看到不到字符都是被缩小了字体，
'以及字体颜色设置成了白色，只要判断其中一个条件，就能取到想要的结果。
'我这里是判断字体颜色为黑色的字符就按原顺序提取出来，放到下面的单元格中。

Dim rng As Range, rg As Range, i&, s$
Dim ofst As Integer
ofst = Sheets(1).Range("A65536").End(xlUp).Row + 3
Set rng = [a1].CurrentRegion
Application.ScreenUpdating = False
For Each rg In rng
  s = ""
  For i = 1 To Len(rg)
    If rg.Characters(Start:=i, Length:=1).Font.Color = vbBlack Then s = s & Mid(rg, i, 1)
  Next i
  rg.Offset(ofst) = s
Next rg
Application.ScreenUpdating = True
End Sub