网站搜索

如何在 Excel 中换行（换行、展开、修复问题）

方法 1 – 使用“主页”选项卡中的“自动换行”选项

  • 选择范围D6:D13。
  • 转到主页选项卡。
  • 点击对齐方式组中的文本换行。

方法 2 – 使用“设置单元格格式”对话框

  • 选择所需的范围（例如D6:D13）。
  • 按Ctrl+1 打开设置单元格格式对话框。

  • 转到对齐选项卡。
  • 选中“文本控制”下的文本换行，然后点击确定。

方法 3 – 使用键盘快捷键

您可以使用 Excel 中的快捷键轻松应用自动换行命令：

  • 选择范围D6:D13。
  • 按Alt+H。

  • 然后按W应用自动换行。

方法 4 – 使用自动调整列宽选项

要显示单元格内的整个文本，请按照下列步骤操作：

  • 选择要在其中进行文本换行的单元格（例如 D6:D13）。
  • 转到主页选项卡。
  • 展开“单元格”组中的格式选项。
  • 选择自动调整列宽。

点击图片以获得更好的视图

点击图片以获得更好的视图

如何在 Excel 中手动换行

插入换行符以手动换行文本

您可以通过插入换行符来手动换行。尽管此方法需要更长的时间，但在特定情况下可能很有用：

  • 选择一个单元格并转到公式栏。
  • 将光标置于要插入换行符的位置。
  • 按Alt+Enter。

  • 插入换行符后，按Enter。

现在，如果您选择单元格 D6，您将看到自动换行功能已启用。

您可以使用格式刷将相同的格式应用于其他单元格。

  • 选择单元格D6。
  • 转到主页 >> 单击格式刷。

  • 选择范围 D7:D13 以应用与 D6 相同的格式。

我们已手动应用自动换行功能。

删除手动换行符

要删除手动换行符：

  • 将光标放置在新行开始的位置。
  • 按退格可一一删除换行符。

如果您需要一次删除多个单元格中的换行符：

  • 选择所需的单元格并按Ctrl+H。
  • 在查找和替换窗口中，将光标置于查找内容部分，然后按Ctrl+J。
  • 将替换为部分保留为空，然后点击全部替换。

文本换行功能和换行符之间的差异

文本换行功能和换行符之间有一个有趣的区别：

  • 直接在单元格中应用“自动换行”功能会在公式栏中将整个文本显示在一行中。

  • 使用换行符不会显示公式栏中的整个文本；您需要展开它才能看到完整内容。

点击图片以获得更好的视图

点击图像以获得更好的视图

点击图片以获得更好的视图

如何使用 Excel VBA 进行文本换行

我们将使用 Excel VBA 换行文本在单元格、范围、行、列或整个工作表中换行文本：

1. 在单元格中换行文本

  • 激活所需的工作表。
  • 转到开发人员并单击Visual Basic。

  • 在模块中插入以下代码并运行它：
Sub WrapCell()
    Cells(6, 4).WrapText = True
End Sub

或者，您可以使用以下代码：

Sub WrapCellAlternative()
    Range("D6").WrapText = True
End Sub

结果，我们可以看到单元格D6启用了自动换行功能。

2. 在范围内换行文本（例如 D6:D13）

  • 激活所需的工作表。
  • 导航到开发人员并单击Visual Basic。

  • 在模块中插入以下代码并运行它：
Sub WrapRange()
    Range("D6:D13").WrapText = True
End Sub

现在您已成功启用指定单元格范围的自动换行功能！

3. 在选定范围内换行文本

要将文本换行功能应用到选定范围，请按照下列步骤操作：

  • 选择范围D6:D13。
  • 转到开发人员选项卡并单击Visual Basic。

  • 在VBA编辑器窗口中，将以下代码插入新的模块中：
Sub WrapSelectedRange()
    Dim selectedRange As Range
    Dim cell As Range 
    If Selection.Cells.Count = 1 Then
        Set selectedRange = ActiveSheet.UsedRange
    Else
        Set selectedRange = Selection
    End If 
    For Each cell In selectedRange
        cell.WrapText = True
    Next cell 
    Selection.Rows.AutoFit
End Sub

  • 现在您将看到所选范围已启用自动换行功能。

4. 在使用范围内换行文本

  • 转到开发人员选项卡并单击Visual Basic。

  • 在VBA编辑器窗口中，将以下代码插入新的模块中并运行：
Sub WrapUsedRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("In Used Range (VBA)")
    ws.UsedRange.WrapText = True
End Sub

  • 选择已使用范围内的任意单元格，您将看到自动换行功能已启用。

5. 将文本换行整行（例如第 6 行）

  • 打开VBA 编辑器。
  • 单击插入并选择模块。
  • 插入以下代码并运行：
Sub WrapEntireRow()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("In Entire Row (VBA)")
    ws.Range("6:6").WrapText = True
End Sub

确保调整代码中的工作表名称（“整行(VBA)”）以匹配您的工作簿。

您可以看到第 6 行中的文本已换行。

6. 将文本包裹在整列中（例如 D 列）

  • 在Visual Basic编辑器窗口中，单击插入并选择模块。
  • 粘贴以下代码并运行：
Sub WrapEntireColumn()
    Range("D:D").WrapText = True
End Sub

  • 在D 列的任意单元格中插入长文本即可查看结果。

7. 在整个工作表中换行文本

  • 打开VBA 编辑器。
  • 单击插入并选择模块。
  • 插入以下代码并运行它。
Sub WrapEntireWorksheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("In Entire Worksheet (VBA)")
    ws.Cells.WrapText = True
End Sub

  • 选择该工作表中的任意单元格以验证自动换行功能是否已启用。

您还可以循环遍历工作簿中的所有工作表并使用以下代码应用文本换行：

Sub WrapAllWorksheets()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
       Cells.WrapText = True
    Next ws
End Sub

8. 在非连续范围内换行文本

  • 转到开发人员 >> Visual Basic。
  • 单击插入 >> 模块。
  • 粘贴以下代码并运行它。
Sub WrapNoncontiguousRange()
    Range("D6:D13,C16:C17").WrapText = True
End Sub

  • 现在，您将看到 D6:D13 和 C16:C17 范围已启用自动换行。

9. 在命名范围内换行文本

  • 选择D6:D13范围，然后在名称框中输入产品说明以创建命名范围。

  • 在 Visual Basic 编辑器中插入模块。
  • 然后，插入以下代码并运行它。
Sub WrapUsedRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("In Used Range (VBA)")
    ws.UsedRange.WrapText = True
End Sub

文本换行功能现在将应用于命名范围。

如何在 Excel 中合并单元格中的文本换行

在 Excel 中处理合并单元格时，文本换行对于确保所有内容都可见至关重要。请按照以下步骤在合并单元格中换行文本：

点击图像以获得更好的视图

  • 选择合并的单元格：

    • 确定要在其中换行文本的合并单元格（例如“产品描述”列中的单元格）。
    • 右键单击选定的合并单元格以打开上下文菜单。

  • 设置单元格格式：

    • 从上下文菜单中点击设置单元格格式。

点击图像以获得更好的视图

    • 将出现设置单元格格式对话框。

  • 启用文本换行：

    • 在设置单元格格式对话框中，导航至对齐方式选项卡。
    • 选中文本控件部分下的文本换行框。
    • 点击确定应用更改。

  • 调整行高：

    • 默认情况下，由于行高的原因，换行文本可能不完全可见。

点击图像以获得更好的视图

    • 选择包含换行文本的单元格（例如，D6:D13）。
    • 转到“首页”标签并展开格式选项。
    • 在单元格大小下选择行高。

点击图像以获得更好的视图

    • 将行高设置为45 以确保换行文本完全可见。
    • 按确定。

现在您将能够看到合并单元格中所有换行的文本。

如何在 Mac 上自动换行？

在 Mac 上，我们可以在选择单元格后转到格式菜单来换行文本。接下来，选中自动换行框并单击确定。

如何在 Excel 中展开文本

要在 Excel 中删除文本换行（即展开文本），请考虑以下方法：

方法 1 – 取消选择自动换行选项

  • 选择所需的单元格。
  • 转到主页选项卡。
  • 取消选择文本换行选项。

  • 这会将文本恢复为其原始的单行格式。

方法 2 – 使用“设置单元格格式”窗口

  • 右键单击任何选定的单元格。
  • 选择设置单元格格式。

点击图像以获得更好的视图

  • 在设置单元格格式窗口中，转到对齐方式选项卡。
  • 取消选中文本控制下的文本换行。
  • 单击确定。

现在您将能够看到合并单元格中所有换行的文本。

方法 3 – 应用键盘快捷键

  • 选择所需的单元格。
  • 按 Alt+H+W 删除文本换行。

结果，输出将如下所示：

4.使用Excel VBA

如果您喜欢自动化，请使用VBA（Visual Basic for Applications）：

  • 转到开发人员选项卡并选择Visual Basic选项。

  • 在 Visual Basic 编辑器中插入模块。

  • 例如，要解开 D6:D13 范围内的文本，请在模块中插入以下代码：
Sub UnwrapUsingVBA()
Range("D6:D13").WrapText = False
End Sub

  • 按运行按钮或F5运行代码。

包裹的文本现在已展开。

为什么 Excel 中的文本换行功能不起作用？

文本换行功能无法按预期工作的常见原因如下：

原因一：固定行高

  • 如果您手动设置单元格的行高，则“自动换行”功能将不适用于该单元格。
  • 要解决此问题，请选择范围 D6:D13 >> 转到首页 >>格式 >> 行高，并选择合适的高度。

点击图片以获得更好的视图

  • 或者，使用自动调整行高来自动调整行高。

原因 2：存在合并单元格

  • 文本换行功能不适用于合并单元格。
  • 您必须在合并单元格或应用文本换行之间进行选择。
  • 如果需要，请按照本文中提到的扩展步骤组合这两个选项。

原因 3：水平对齐设置为填充

另一个可能阻止文本换行的因素是水平对齐方式设置为填充。即使启用文本换行选项，文本也不会正确换行。

为了解决这个问题：

  • 选择要进行文本换行的单元格。
  • 按Ctrl+1打开“设置单元格格式”对话框。

  • 转到对齐标签。
  • 在文本对齐部分中，检查水平对齐设置。
  • 如果它设置为填充，请将其更改为常规。
  • 单击确定应用更改。

通过将水平对齐方式调整为常规，您将确保文本换行功能正确。

您必须记住哪些事情？

在阅读本文时，您应该记住一些事情。

  • 考虑打开本文旁边的练习手册以供参考。
  • 处理大型数据集时避免手动换行。
  • 如果您计划使用 Excel VBA 代码，请将工作簿另存为启用宏的文件。

在 Excel 中自动换行：知识中心

  • 在多个单元格中换行文本而不合并

相关文章