如何创建针对选中单元格的宏：合并下方单元格内容至选中单元格

功能说明 #

选中单个单元格后运行宏，会将下方单元格的内容以「原内容 + 空格 + 下方内容」的格式追加到选中单元格，同时清空下方单元格的内容。

宏代码 #

Sub MergeWithBelowCell()
    ' 校验是否仅选中单个单元格
    If Selection.Cells.Count <> 1 Then
        MsgBox "请只选中一个单元格！", vbExclamation
        Exit Sub
    End If
    
    Dim targetCell As Range
    Dim belowCell As Range
    
    Set targetCell = Selection
    Set belowCell = targetCell.Offset(1, 0) ' 定位选中单元格正下方的单元格
    
    ' 检查下方单元格是否为空
    If Trim(belowCell.Value) = "" Then
        MsgBox "下方单元格没有可合并的内容！", vbExclamation
        Exit Sub
    End If
    
    ' 合并内容并赋值给选中单元格
    targetCell.Value = targetCell.Value & " " & belowCell.Value
    
    ' 清空下方单元格
    belowCell.ClearContents
End Sub

代码说明 #

• 选中范围校验：确保用户仅选中单个单元格，避免批量操作引发错误
• 下方单元格定位：通过Offset(1,0)精准获取选中单元格正下方的单元格
• 空值判断：若下方单元格无内容，弹出提示并终止宏运行
• 内容合并：将原内容、空格、下方内容拼接后覆盖选中单元格
• 下方单元格清空：使用ClearContents移除内容，保留单元格原有格式

示例演示 #

运行前：选中单元格内容为「hello」，其正下方单元格内容为「world」
运行后：选中单元格内容变为「hello world」，下方单元格内容被清空

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