求助然后大批量复制文本里的号码，放到Excel里一次性筛选出需要的

Option Explicit
Sub abc()
　Dim f, a, i, j, s, t, d
　f = "c:\abc.txt"
　If Dir(f) = vbNullString Then MsgBox "文件:" & f: Exit Sub
　Open f For Input As #1
　a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
　Close #1
　Set d = CreateObject("scripting.dictionary")
　s = "0123456789"
　For i = 0 To UBound(a)
　　For j = 1 To Len(a(i))
　　　If InStr(s, Mid(a(i), j, 1)) = 0 Then Mid(a(i), j, 1) = Space(1)
　　Next
　　t = Split(a(i))
　　For j = 0 To UBound(t)
　　　If Len(t(j)) = 11 Then
　　　　If left(t(j), 1) = "1" Then d(t(j)) = 1
　　　End If
　　Next
　Next
　With [a:a]
　　.ClearContents
　　.NumberFormatLocal = "@"
　　If d.Count > 0 Then .Resize(d.Count) = Application.Transpose(d.keys)
　End With
End Sub