1.首先运行如下宏代码：

Sub pj()
For z = 4 To 200
Sheets.Add after:=Sheets(Sheets.Count)
Next
End Sub

作用是先生成200多个表文件，然后将读取的数据放到各个表里。
2.然后再运行下面的宏代码，即可将txt文件内容按照5行5行内容输出到各个excel表里

Sub pj2()
Dim s() As String, i As Long, arr()
Open ThisWorkbook.Path & "\原始数据.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = 0 To UBound(s) - 1 Step 5
ReDim arr(4, 1 To 1)
For j = i To i + 4
arr(j - i, 1) = s(j)
Next
Sheets("SHeet" & i \ 5 + 1).[a1:a5] = arr
Next
MsgBox "ok"
End Sub

txt文件要放到和excel文件一起的目录才行哦，并且文件名要改成原始数据.txt。如果需要读取更多的行数据请根据以上代码更改。