如何在Excel表格导入文本TXT？

Question

这是txt内容，要转换成这样的excel表格，步骤是什么？具体怎么弄？

Answer 1

步骤如下：
1、首先，打开excel，选择数据选项卡，自文本选项。
2、在弹出的资源管理器界面选择存放好的txt文件后，点击打开按钮。
3、此时弹出文本导入向导，由于我的数字是以空格为分隔字符的，所以我选择分隔符号，当然，如果你的文本是固定宽度，你可以选择第二个。然后点击下一步按钮。
4、勾选空格，检验预览数据是否和自己预想的一致。一致后继续点击下一步按钮。
5、查看预览效果。并选择列数据格式，此处没什么特别要求，建议选择常规，常规也是excel默认的格式。点击完成。
6、在弹出的对话框中，选中要导入的数据区域，此处我要导入到当前单元格，并且从a1单元格开始，因此我选择a1单元格，多余的数据会自动以此单元格向两边张开。点击确定按钮
我们的数据就算是完美的导入进来了。

Answer 2

1、先txt内容复制到excel一列中

2、参考下面宏处理

Excel怎样处理一列数据根据标题转成四列数据表

Answer 3

选择“数据”选项卡中的“自文本”

安步骤选择源文件

选择分割方式

Answer 4

数据量大不大。power query

载入文件夹下所有txt文件

Answer 5

如果每个人的行数和顺序都是固定的，可以使用EXCEL公式实现，第一步是把整个TXT文件粘贴到EXCEL表中，然后在B1开始写公式：
=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)



