资讯

历史

科技

环境与自然

成长

游戏

财经

文学与艺术

美食

健康

家居

文化

情感

汽车

三农

军事

旅行

运动

教育

生活

星座命理

Excel中将文本转换成表格的多种方法

创作时间:

作者:

@小白创作中心

Excel中将文本转换成表格的多种方法

引用

来源

https://docs.pingcode.com/baike/4265707

在Excel中，将文本转换成表格是一项常见的操作。无论是简单的数据整理，还是复杂的文本处理，Excel提供了多种方法来实现这一需求。本文将详细介绍使用分列功能、文本导入向导、公式和函数、VBA宏以及第三方工具等多种方法，帮助你高效地完成文本到表格的转换。

要将Excel中的文本转换成表格，可以使用以下几种方法：使用分列功能、使用文本导入向导、使用公式和函数。其中，使用分列功能是最常见和方便的方法，它可以将一段文本按指定的分隔符分割成多个单元格，从而形成表格。以下是详细步骤和相关技巧。

一、使用分列功能

Excel中的“分列”功能是一个强大的工具，可以将一段连续的文本按指定的分隔符进行分割，从而将文本数据转换为结构化表格数据。

1.1、选择数据范围

首先，选择包含你要转换为表格的文本数据的单元格范围。这些数据通常是以某种分隔符（如空格、逗号、分号等）分隔的。

1.2、打开分列功能

在Excel菜单栏中，选择“数据”选项卡，然后在“数据工具”组中点击“分列”按钮。这将打开“文本分列向导”对话框。

1.3、选择分隔符类型

在“文本分列向导”对话框的第一步中，选择“分隔符号”选项，然后点击“下一步”。在第二步中，选择适合你的文本数据的分隔符（如逗号、空格、Tab等）。你可以通过勾选不同的选项来预览分隔后的效果。

1.4、设置数据格式

在“文本分列向导”对话框的第三步，你可以为每一列数据选择适当的数据格式（如常规、文本、日期等）。设置完毕后，点击“完成”按钮。Excel将按照你的设置将文本数据分割成多个单元格，形成表格。

二、使用文本导入向导

除了分列功能，Excel还提供了“文本导入向导”，可以导入外部文本文件并将其转换为表格数据。

2.1、导入文本文件

在Excel菜单栏中，选择“数据”选项卡，然后在“获取和转换数据”组中点击“自文本/CSV”按钮。选择你要导入的文本文件，然后点击“导入”按钮。

2.2、选择文件来源和分隔符

这将打开“文本导入向导”对话框。根据你的文件类型选择适当的文件来源和文件格式（如分隔符号、固定宽度等）。然后点击“下一步”。

2.3、设置分隔符和数据格式

选择适当的分隔符，预览数据分隔效果，然后点击“下一步”。在最后一步中，为每一列数据选择适当的数据格式。设置完毕后，点击“完成”按钮。

2.4、导入数据

选择数据的存储位置（新工作表或现有工作表），然后点击“确定”。Excel将按照你的设置将文本文件导入并转换为表格数据。

三、使用公式和函数

对于更复杂的文本转换需求，可以使用Excel的公式和函数来实现。例如，使用
TEXTSPLIT
、
LEFT
、
RIGHT
、
MID
等函数可以对文本进行灵活的分割和转换。

3.1、使用

TEXTSPLIT
函数

TEXTSPLIT
函数可以将一段文本按指定的分隔符分割成多个部分。例如，公式
=TEXTSPLIT(A1, ",")
可以将单元格A1中的文本按逗号分割成多个部分。

3.2、使用

LEFT
、
RIGHT
和
MID
函数

LEFT
、
RIGHT
和
MID
函数可以从文本中提取指定位置的子字符串。例如，公式
=LEFT(A1, 5)
可以提取单元格A1中前5个字符，公式
=MID(A1, 3, 4)
可以提取单元格A1中从第3个字符开始的4个字符。

3.3、结合

FIND
和
LEN
函数

结合
FIND
和
LEN
函数，可以实现更复杂的文本提取操作。例如，公式
=LEFT(A1, FIND(",", A1) - 1)
可以提取单元格A1中逗号之前的所有字符。

四、使用VBA宏

对于高级用户，可以编写VBA宏来自动化文本到表格的转换过程。

4.1、启用开发工具

首先，启用Excel中的开发工具。在Excel选项中，选择“自定义功能区”，然后勾选“开发工具”选项。

4.2、编写宏代码

在开发工具选项卡中，点击“Visual Basic”按钮打开VBA编辑器。编写如下宏代码来实现文本转换：

  
Sub ConvertTextToTable()
  
    Dim rng As Range  
    Dim cell As Range  
    Dim arr() As String  
    Set rng = Selection  
    For Each cell In rng  
        arr = Split(cell.Value, ",")  
        cell.Resize(1, UBound(arr) + 1).Value = arr  
    Next cell  
End Sub