如何将Excel中未自动换行的文本单元格拆分为多行？

方法1：直接启用单元格自动换行（最简便） #

• 选中需要处理的单元格或单元格区域
• 按下Ctrl+1打开「设置单元格格式」窗口，切换到「对齐」选项卡
• 勾选「自动换行」选项，点击确定
• 调整列宽至与目标示例一致，文本会自动适配列宽换行

方法2：用公式手动控制换行位置 #

如果需要按固定字符数拆分换行，假设目标文本在A1单元格，按每10个字符拆分：

=LEFT(A1,10)&CHAR(10)&MID(A1,11,10)&CHAR(10)&RIGHT(A1,LEN(A1)-20)

• 输入公式后，需确保单元格已开启「自动换行」，CHAR(10)是Excel的换行符，只有开启自动换行才能显示多行效果
• 可根据实际需求调整公式中的字符数参数

方法3：Power Query批量拆分（适合大量数据） #

• 选中目标数据区域，点击「数据」选项卡→「从表格/区域」（需Excel 2016及以上版本）
• 在Power Query编辑器中，选中要处理的列，点击「转换」→「拆分列」→「按位置」
• 设置拆分的字符位置（例如每10个字符拆一次），选择「拆分为行」，点击确定
• 点击「关闭并上载」，拆分后的数据会自动导入到新工作表

方法4：VBA宏批量处理（灵活定制） #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码（按固定字符长度拆分）：

Sub SplitTextByLength()
    Dim rng As Range
    Dim cell As Range
    Dim textLen As Integer
    Dim splitLen As Integer
    Dim i As Integer
    
    splitLen = 10 '可修改为你需要的每行字符长度
    Set rng = Application.Selection
    For Each cell In rng
        textLen = Len(cell.Value)
        cell.ClearContents
        For i = 0 To Int(textLen / splitLen)
            cell.Offset(i, 0).Value = Mid(cell.Value, i * splitLen + 1, splitLen)
        Next i
    Next cell
End Sub

• 返回Excel，选中目标单元格区域，按Alt+F8选择宏并运行即可

内容的提问来源于stack exchange，提问作者sephiroth