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

发布网友发布时间：2022-04-24 07:19

共7个回答

热心网友时间：2022-04-28 05:16

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

热心网友时间：2022-04-28 06:34

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

2、参考下面宏处理

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

热心网友时间：2022-04-28 08:09

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

安步骤选择源文件

选择分割方式

热心网友时间：2022-04-28 10:00

数据量大不大。power query

载入文件夹下所有txt文件

热心网友时间：2022-04-28 12:08

如果每个人的行数和顺序都是固定的，可以使用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

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)





热心网友时间：2022-04-28 14:33

手工操作或者付费代工吧。

热心网友时间：2022-04-28 17:14

提供具体的文件写代码来处理