- Sub Macro1()
- Dim arr, i&, n&, j%
- wj = ThisWorkbook.Path & "\MAC地址.txt"
- Open wj For Input As #1
- w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
- Close #1
- ReDim arr(1 To UBound(w) + 1, 1 To 4)
- For i = 0 To UBound(w) Step 2
- n = n + 1
- x = Split(Application.Trim(w(i)))
- For j = 0 To UBound(x)
- arr(n, j + 1) = x(j)
- Next
- Next
- Range("a1").Resize(n, 4) = arr
- End Sub
复制代码 |