怎么将excel表格3行变成1行

要将Excel表格中的3行合并成1行，可以使用以下几种方法：使用公式、使用VBA宏、使用Power Query。 其中，使用公式是最常见且便捷的方法。通过使用公式，可以将不同行的数据合并到一行中，而不会改变原始数据表的结构。下面将详细介绍如何使用公式来实现这一目的。

一、使用公式

1、使用 CONCATENATE 或 & 运算符

Excel 中的 CONCATENATE 函数或 & 运算符可以用来将多个单元格的内容合并到一个单元格中。

步骤一：选择目标单元格

选择一个空白单元格，这是将要存放合并后数据的地方。
步骤二：输入公式

输入类似于以下的公式：
```
=CONCATENATE(A1, A2, A3)
```
或者使用 & 运算符：
```
=A1 & A2 & A3
```
这些公式会将 A1、A2 和 A3 单元格中的内容合并到一个单元格中。
步骤三：复制公式

如果需要将多个列的数据合并，复制公式并修改相应的单元格引用。

2、使用 TEXTJOIN 函数

TEXTJOIN 函数是 Excel 2016 及更高版本中提供的一种更灵活的函数，可以用来合并多个单元格内容，并可以指定分隔符。

步骤一：选择目标单元格

选择一个空白单元格，这是将要存放合并后数据的地方。
步骤二：输入公式

输入类似于以下的公式：
```
=TEXTJOIN(" ", TRUE, A1:A3)
```
其中，" " 是分隔符，TRUE 表示忽略空白单元格，A1:A3 是需要合并的单元格范围。

二、使用 VBA 宏

如果需要经常执行这一操作，可以考虑使用 VBA 宏来实现自动化。

1、打开 VBA 编辑器

按下 Alt + F11 打开 VBA 编辑器。

2、插入模块

在 VBA 编辑器中，插入一个新的模块。

3、输入 VBA 代码

输入以下 VBA 代码：

Sub CombineRowsToOne()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim result As String
    ' Set worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Set range to combine
    Set rng = ws.Range("A1:A3")
    ' Combine rows
    For Each cell In rng
        result = result & " " & cell.Value
    Next cell
    ' Output result
    ws.Range("B1").Value = Trim(result)
End Sub

修改 "Sheet1" 和 "A1:A3" 为实际工作表名称和单元格范围。

4、运行宏

按下 F5 或点击“运行”按钮来执行宏，合并后的数据将会显示在目标单元格中。

三、使用 Power Query

Power Query 是一种数据处理工具，可以用于将多行数据合并为一行。

1、加载数据到 Power Query

选择数据范围，点击“数据”选项卡，然后点击“从表/范围”加载数据到 Power Query 编辑器。

2、转置数据

在 Power Query 编辑器中，选择“转置”选项，将行数据转置为列数据。

3、合并列

选择需要合并的列，点击“合并列”按钮，选择分隔符（如逗号、空格等），然后点击“确定”。

4、加载数据回 Excel

点击“关闭并加载”按钮，将处理后的数据加载回 Excel 表格。

四、总结

在实际操作中，选择哪种方法取决于具体需求和操作习惯。使用公式 是最简单直接的方法，适用于少量数据的合并。使用 VBA 宏 可以实现自动化操作，适合需要频繁执行此操作的情况。使用 Power Query 则提供了更强大的数据处理能力，适合复杂的数据合并需求。无论选择哪种方法，都可以有效地将 Excel 表格中的 3 行数据合并成 1 行，从而提高数据处理效率。