如何用VBA宏将Excel多行单元格合并为指定格式的单个单元格

下面是能满足需求的VBA代码，自动适配A列从A1开始的任意非空行数，合并后内容用方括号包裹、条目间以逗号加空格分隔：

Sub MergeCellsToTarget()
    Dim lastRow As Long
    Dim sourceRange As Range
    Dim mergedText As String
    
    ' 获取A列最后一个非空行的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 处理无数据的情况
    If lastRow < 1 Then
        Range("A10").ClearContents
        Exit Sub
    End If
    
    ' 确定源数据范围
    Set sourceRange = Range("A1:A" & lastRow)
    
    ' 转置垂直数据为一维数组，并用", "分隔合并
    mergedText = Join(Application.Transpose(sourceRange.Value), ", ")
    
    ' 给合并内容添加首尾方括号
    mergedText = "[" & mergedText & "]"
    
    ' 将结果写入目标单元格A10
    Range("A10").Value = mergedText
End Sub

代码说明 #

• 动态适配行数：通过Cells(Rows.Count, "A").End(xlUp).Row精准获取A列最后一个非空行，不管是1行还是多行数据都能自动识别
• 格式处理：用Join函数直接指定分隔符为, ，再拼接首尾方括号，完美实现要求的格式
• 容错处理：增加了空数据判断，避免无内容时报错，同时清空目标单元格

使用方法 #

1. 打开Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 按F5运行代码，或者回到Excel界面通过「开发工具」→「宏」执行该程序

内容的提问来源于stack exchange，提问作者Flow-Pleyah