'通过vba把TXT的文件按照行导入到Excel中去
Sub a()
Dim i
Open "C:\Users\Administrator\Desktop\123.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, j
'这句就是筛选需要填进去的行的筛选 <>可以改成=等等
If Left(j, 1) <> "" Then
Range("a" & i) = j
i = i + 1
End If
Loop
Close #1
End Sub