请问一下怎么样把文本文档的数据导入到Excel表里面

给你写了一个宏，
操作步骤如下：
1.先复制文本文档数据粘贴到excel，一定要从A1开始粘贴
2.然后，点 工具→ 宏→宏
3.输入宏名 a1 点“创建”按钮
4.在
Sub a1()

在这个位置粘贴下面的代码

End Sub

''代码开始
Dim x As Integer
dim y as long
y=50 ''如果数据的总行数为100，则50改为100，如果为5000，则50改为5000
Dim rA As String
Dim rB As String
For x = 2 To y Step 2
rA = "A" & Trim(Str(x))
rB = "B" & Trim(Str(x - 1))
Range(rA).Select
Selection.Cut
Range(rB).Select
ActiveSheet.Paste
Next x
''代码结束
5.然后关闭，保存这个a1宏
6.点 工具→ 宏→宏，运行 a1，就行了