怎么在Excel2010工作表导入txt文件？
发布网友
发布时间：2022-04-21 06:11
共5个回答
热心网友
时间：2022-06-18 10:23
1、首先，打开excel，选择数据选项卡，自文本选项。
2、在弹出的资源管理器界面选择存放好的txt文件后，点击打开按钮。
3、此时弹出文本导入向导，由于我的数字是以空格为分隔字符的，所以我选择分隔符号，当然，如果你的文本是固定宽度，你可以选择第二个。然后点击下一步按钮。
4、勾选空格，检验预览数据是否和自己预想的一致。一致后继续点击下一步按钮。
5、查看预览效果。并选择列数据格式，此处没什么特别要求，建议选择常规，常规也是excel默认的格式。点击完成。
6、在弹出的对话框中，选中要导入的数据区域，此处我要导入到当前单元格，并且从a1单元格开始，因此我选择a1单元格，多余的数据会自动以此单元格向两边张开。点击确定按钮
我们的数据就算是完美的导入进来了。
热心网友
时间：2022-06-18 10:23
1、先txt内容复制到excel一列中
2、参考下面宏处理
Excel怎样处理一列数据根据标题转成四列数据表
热心网友
时间：2022-06-18 10:24
选择“数据”选项卡中的“自文本”
安步骤选择源文件
选择分割方式
热心网友
时间：2022-06-18 10:24
数据量大不大。power query
载入文件夹下所有txt文件
热心网友
时间：2022-06-18 10:25
=INDEX($A:$A, (ROW()-1)*6 + COLUMNS(A1))
右拉、下拉即可。
如果每个人的行数不同，或者顺序不同，那就只有使用VBA编程了。追问就是行数和顺序都不一样啊，我也很崩溃啊，而且类似txt很多，都是这种格式
[xxxx]
a=xxxx
b=xxxx
c=xxxx
[xxxx]
b=xxxx
c=xxxx
[xxxx]
d=xxxx
a=xxxx
VBA编程怎么写，有图片更好，谢谢。
追答
VBA编程不难，但是教会别人就登天一样难了，我写一个示例代码结束被帖回答，不敢奢求有什么效果，一切随缘吧。
示例的文本文件、程序运行的效果如下图：
VBA程序代码如下图：
程序代码文本是：
超过*了，帖不了，只帖前面部分吧
Option Explicit
Sub 导入TXT()
Dim db, jdb, arr, i, j, k, n, v, line$
'读文件
Set db = CreateObject("Scripting.Dictionary")
Open "i:\Temp\tmp\a.txt" For Input As #1
While Not EOF(1)
Input #1, line
If line <> "" Then
arr = Split(line, "=")
If UBound(arr) > LBound(arr) Then
k = arr(0)
v = arr(1)
db(n)(k) = v
Else
n = Replace(Replace(line, "[", ""), "]", "")
If Not db.Exists(n) Then db.Add n, CreateObject("Scripting.Dictionary")
End If
End If
Wend
Close #1
'生成表格
Set jdb = CreateObject("Scripting.Dictionary")
ReDim arr(1 To db.Count, 1 To 100)
i = 0
For Each n In db.Keys
i = i + 1
arr(i, 1) = n
For Each k In db(n).Keys
v = db(n)(k)
