嘿，我懂你的痛点——之前的代码只调整了列宽，根本没解决「按单词拆分换行」的核心需求，所以才会出现单词被硬生生拆成两半的尴尬情况。下面给你两种实用的解决办法：

方法一：VBA批量处理（适合整区域快速搞定） #

这段代码会遍历B2到CT2的每个单元格，把空格替换成单元格内的换行符，同时开启自动换行，最后调整到合适的列宽：

Sub SplitWordsToLines()
    Dim cell As Range
    ' 逐个处理目标区域里的单元格
    For Each cell In Range("B2:CT2")
        ' 将空格替换为单元格内换行符（Chr(10)是Excel里的换行标识）
        cell.Value = Replace(cell.Value, " ", Chr(10))
        ' 开启自动换行，让内容按我们设置的换行符显示
        cell.WrapText = True
    Next cell
    ' 自动调整列宽，适配内容
    Range("B2:CT2").EntireColumn.AutoFit
End Sub

使用步骤： #

• 按Alt+F11打开VBA编辑器
• 右键点击你的工作簿，选择「插入」→「模块」
• 把上面的代码粘贴进去，按F5运行就行

运行后每个单元格里的单词就会乖乖地各占一行，再也不会被拆分啦。

方法二：手动操作（适合少量单元格） #

如果你的目标单元格不多，手动来也很快：

• 选中要修改的单元格，双击进入编辑模式
• 把光标移到两个单词之间的空格位置，按Alt+Enter插入手动换行
• 右键单元格→「设置单元格格式」→勾选「对齐」选项卡下的「自动换行」
• 重复上面的步骤处理其他单元格，最后调整列宽即可

为什么之前的代码没用？因为Excel的自动换行是根据列宽强制拆分内容，而不是识别单词边界。我们用换行符替换空格，就是强制让每个单词从新行开始，从根源上解决了单词被拆分的问题。

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