Sub sdf()
     Dim dic: Set dic = CreateObject("scripting.dictionary")
     Dim num, tmp$
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: .DisplayAlerts = 0
         For Each num In [A1].CurrentRegion.Value
             tmp = Join(Evaluate("transpose(len(" & num & ")-len(substitute(" & num & ",char(row(r48:r57)),)))"))
             dic(tmp) = Trim(dic(tmp) & " " & num)
         Next
         For Each Key In dic.keys
             If InStr(1, dic(Key), " ") = 0 Then dic.Remove Key
         Next
         With [L1].Resize(dic.Count)
             .CurrentRegion.Clear: .Value = WorksheetFunction.Transpose(dic.items)
             .TextToColumns Range("L1"), xlDelimited, Space:=True: .Formula = .Value
         End With
     .ScreenUpdating = 1: .EnableEvents = 1: .DisplayAlerts = 1: End With
     Set dic = Nothing
End Sub