5,139
社区成员
发帖
与我相关
我的任务
分享
Sub AAA()
Dim s() As String
Worksheets("Sheet1").Range("A:A").ClearContents
Open ThisWorkbook.Path & "\" & "123.txt" For Input As #1
s1 = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
ReDim s(0 To UBound(s1) - 4)
For i = 4 To UBound(s1)
s(i - 4) = s1(i)
Next
[a2].Resize(UBound(s) + 1, 1) = Application.Transpose(s)
End Sub