excel吧 关注：281,450贴子：1,551,393
- 10回复贴，共1页
不感兴趣
开通SVIP免广告
菠萝蜜
'
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
