将TXT文件中的内容正确导入到Excel表格中不混乱的方法

使用Excel过程中想必你会遇到这种情况,就是把一些文件导入到Excel表格当中,但是许多文本文件字符不规则,不好排列,导入到Excel表格当中看起来十分混乱。针对这个问题下面有个不错的解决方法,大家可以参考下。

问题:如何将txt里面的内容导入EXCEL里?

描述:20090921|0037184959|09艺术|410503|410503117|1|60 这些内容按分隔号单独导入每一个单元格里。

解决:假设上述内容存储在一个文本文件中(.txt).操作如下:(菜单)文件-->打开-->(“文件类型”选择“文本文件”;“文件名”选择要导入的.txt文件)-->下一步-->“分隔符号”选择“其它”并输入“|”-->完成。

描述:txt文件中的数据都是逗号隔开,但是是排成一行的,问题是当选择导入,逗号分隔时候,所有的数据都会被导入第一行,现在想要把这些数据按列导入就是说:00FE在第一行,即A1,00DC,在第二行A2。.

解决:

可以先用word打开文本文件,用word的替换命令。在替换对话框里要查找的字符填上逗号,准备替换成的编辑框里输入"^p"不带引号,然后选全部替换,就把所有的逗号替换成换行符了。
这时,全选复制,然后切换到EXCEL,选粘贴就好了。

操作步骤

1、打开Excel2010,点击“数据”选项卡,然后在最左边的“获取外部数据”菜单中选择“自文本”选项。

TXT文件正确导入Excel


2、在“导入文本文件”窗口中选择需要导入的文件。按“导入”按钮。

TXT文件正确导入Excel


3、打开“文本导入向导-步骤之1(共3步)”对话框中并选择“分隔符号”选项。点击“下一步”。

TXT文件正确导入Excel


4、打开“文本导入向导-步骤之2”对话框,并添加分列线,点击“下一步”按钮。

TXT文件正确导入Excel


5、打开“文本导入向导-步骤之3”对话框,在“列数据格式”组合框中选中“文本”,然后点击“完成”按钮。

TXT文件正确导入Excel

6、此时会弹出一个“导入数据”窗口,在中选择“新工作表”,按“确定”按钮即可。

7、返回到Excel工作表,就可以看到数据导入成功了,而且排列整齐。

TXT文件正确导入Excel

操作成功了,看起来是不是很整洁又有条理的。

### 回答1: 您好!以下是将文本文件内容复制到Excel表格的VBA代码(注释以英文书写): ``` Sub ImportTextFile() '选择文本文件 Dim myFile As String myFile = Application.GetOpenFilename("Text Files (*.txt), *.txt") '如果用户没有选择文件,则退出子程序 If myFile = "False" Then Exit Sub '打开文件以进行读取 Open myFile For Input As #1 '定义行计数器和单元格计数器 Dim rowCount As Integer Dim cellCount As Integer '循环读取每一行 Do Until EOF(1) '逐行读取文件 Line Input #1, textLine '将每个单词分割成数组 Dim words() As String words = Split(textLine, " ") '在Excel写入每个单词 For Each word In words cellCount = cellCount + 1 Cells(rowCount + 1, cellCount).Value = word Next word '增加行计数器并重置单元格计数器 rowCount = rowCount + 1 cellCount = 0 Loop '关闭文件 Close #1 End Sub ``` 请注意,此代码假定文本文件以空格分隔单词。如果单词之间使用其他分隔符,请将 `Split` 函数的 `" "` 替换为所需的分隔符。 另外,请注意,此代码假定Excel工作表是活动工作表。如果需要将单词写入不同的工作表或工作簿,请使用适当的引用修改代码的单元格。 希望这可以帮助您将文本文件内容导入Excel! ### 回答2: VBA是Visual Basic for Applications的缩写,是一种宏编程语言,可以与各种 Microsoft Office 应用程序进行集成,包括Excel。下面是用VBA将TXT文件的字符查找和导入Excel方法: 1. 打开Excel,按下Alt+F11键打开VBA编辑器。 2. 在VBA编辑器,插入一个新的模块。可以右键点击项目资源管理器的“模块”,选择“插入”->“模块”。 3. 在新的模块编写以下VBA代码: ```vba Sub 导入TXT文件内容() Dim 文件路径 As String Dim 文件号 As Integer Dim 文本行 As String Dim 哪一行 As Integer ' 设置文件路径 文件路径 = "C:\文件路径\文件名.txt" ' 打开文件 文件号 = FreeFile() Open 文件路径 For Input As 文件号 ' 逐行读取和导入文件内容 哪一行 = 1 Do While Not EOF(文件号) Line Input #文件号, 文本行 Cells(哪一行, 1).Value = 文本行 哪一行 = 哪一行 + 1 Loop ' 关闭文件 Close 文件号 End Sub ``` 4. 将`文件路径`变量的值替换为你想要导入TXT文件的完整路径和文件名。 5. 在VBA编辑器,按下F5键或点击“运行”->“运行子过程”执行代码。 6. 执行完毕后,TXT文件的字符将被逐行导入Excel的第一列。 注意事项: - 执行代码前,请确保TXT文件的路径和文件正确,且文件存在。 - 如果你需要导入TXT文件不止一列字符,可以根据需要进行适当的修改,比如使用`Cells(哪一行, 哪一列)`来指定导入的位置。 - 以上代码假设TXT文件是以文本行的形式存储字符,每行一个字符。如果TXT文件的格式不同,需要在代码进行相应的修改。 ### 回答3: VBA是一种用于自动化Excel操作的编程语言,可以通过使用VBA编写代码来将txt文件的字符导入Excel。 首先,我们需要在Excel打开一个新的工作簿,然后按下ALT + F11打开Visual Basic编辑器。在编辑器,选择插入 -> 模块,然后在新的模块编写以下VBA代码: ```VBA Sub ImportTXTFileToExcel() Dim FileNum As Integer Dim FilePath As String Dim FileContent As String Dim LinesArray() As String Dim i As Integer '选择要导入TXT文件 With Application.FileDialog(msoFileDialogFilePicker) .Title = "选择要导入TXT文件" .Filters.Clear .Filters.Add "文本文件", "*.txt" If .Show = -1 Then FilePath = .SelectedItems(1) Else Exit Sub End If End With '读取TXT文件内容 FileNum = FreeFile Open FilePath For Input As FileNum FileContent = Input$(LOF(FileNum), FileNum) Close FileNum '将内容按行分割成数组 LinesArray = Split(FileContent, vbNewLine) '将数组内容导入Excel For i = LBound(LinesArray) To UBound(LinesArray) Cells(i + 1, 1).Value = LinesArray(i) Next i MsgBox "导入完成!" End Sub ``` 代码的`FilePath`变量用于存储要导入txt文件的路径。通过使用`Application.FileDialog`方法,我们可以打开文件选择对话框,让用户选择要导入txt文件。 然后,通过使用`Open`语句,我们打开所选文件,并使用`Input$`函数将文件内容读取到`FileContent`变量。 接下来,我们使用`Split`函数将文本内容按行分割成一个字符串数组`LinesArray`,每个数组元素存储一行内容。 最后,我们使用一个循环将数组内容逐行导入Excel,并通过使用`Cells`对象将内容写入到第一列。 代码执行完成后,会弹出一个消息框显示“导入完成”。 这样,我们就完成了将txt文件的字符导入Excel的操作。您可以将此代码保存在Excel文件,并在需要时运行它来导入txt文件
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值