求助求助大佬们如何快速录入数据

'
Option Explicit
'
Sub abc()
　Dim a, i, j, f, m, n, t
　f = "d:\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
　ReDim b(1 To 10 ^ 4, 1 To 2)
　n = 0
　For i = 1 To UBound(a)
　　t = Split(a(i))
　　For j = 0 To UBound(t)
　　　If Len(t(j)) Then
　　　　m = m + 1
　　　　b(m, 1) = n: b(m, 2) = t(j)
　　　　n = n + 5
　　　End If
　　Next
　Next
　[d2].Resize(m, 2) = b
End Sub