VBA中如何以Alt+Enter换行分隔将多个单元格内容合并到单个单元格

关键知识点 #

• 单元格内手动按Alt+Enter输入的换行，在VBA字符串中对应Chr(10)（换行符LF），拼接内容时直接使用该字符作为分隔符即可实现单元格内换行效果。若运行后未显示换行，选中目标单元格开启「自动换行」即可。
• 涉及删除行的遍历操作，禁止使用从上到下的正向遍历+手动回退循环变量的写法，该逻辑很容易触发边界判断错误导致无限循环。从数据区域最后一行向上反向遍历是这类场景的通用稳妥方案：删除当前行不会影响上方未遍历行的行号，无需额外调整循环变量，也不会出现漏合并问题。

效果示例 #

• 合并前效果：
  
• 合并后效果：
  

存在bug的初始写法 #

以下正向遍历代码会触发无限循环导致程序崩溃，且未使用正确的换行分隔符：

Sub Button2_Click()

Dim lenrows
lenrows = Cells(Rows.Count, "A").End(xlUp).Row '获取A列最后一个非空单元格行号

For i = 2 To lenrows

    If Cells(i, 1) = "" Then '当前行A列为空时，判定为上一行的同组内容
        
        Cells(i - 1, 2) = Cells(i - 1, 2) & " " & Cells(i, 2) '此处用空格分隔，无法实现Alt+Enter换行
        
        Rows(i).EntireRow.Delete
        
        If i = Cells(Rows.Count, "A").End(xlUp).Row Then '边界判断与下行循环变量回退逻辑冲突，易触发死循环
            Exit Sub
        End If
        
        i = i - 1 '手动回退循环变量试图避免漏判，是死循环的核心诱因

    End If

Next i

End Sub

可直接运行的正确代码 #

采用反向遍历逻辑，使用Chr(10)作为换行分隔符，无死循环、漏合并问题：

Sub Button4_Click()

Dim lenrows
'获取B列最后一个非空单元格行号，作为遍历起点
lenrows = Cells(Rows.Count, "B").End(xlUp).Row

'从最后一行向上遍历至第2行
For i = lenrows To 2 Step -1

    If Cells(i, 1) = "" Then
        '将当前行B列内容拼接到上一行B列，用Alt+Enter等效换行符分隔
        Cells(i - 1, 2) = Cells(i - 1, 2) & Chr(10) & Cells(i, 2)
        '删除已完成内容合并的当前行
        Rows(i).EntireRow.Delete
    End If

Next i

End Sub

小提示：如果合并后内容没有显示为分行状态，选中目标单元格，点击「开始」选项卡下的「自动换行」按钮即可正常展示。

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