Excel VBA需求：合并单元格M5:O5按规则触发MsgBox

需求说明 #

• 合并单元格区域M5:O5被编辑且内容非空时，触发MsgBox
• 若该区域内容被删除为空，不触发MsgBox
• 仅选中该区域（无论内容是否为空）时，不触发MsgBox

现有代码问题 #

当前代码逻辑存在漏洞：Intersect判断后没有跳过后续代码，导致不管是否编辑目标区域都会弹出MsgBox；同时没有判断目标区域内容是否为空，也没考虑合并单元格的内容存储特性。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim billtoanswer As Integer
    Dim targetRange As Range
    
    ' 定义目标合并单元格区域
    Set targetRange = Me.Range("M5:O5")
    
    ' 核心判断：编辑区域与目标区域相交，且合并单元格内容非空
    If Not Application.Intersect(targetRange, Target) Is Nothing Then
        ' 合并单元格内容存在于左上角单元格，Trim排除纯空格情况
        If Trim(targetRange.Cells(1).Value) <> "" Then
            billtoanswer = MsgBox("是否使用该地址作为账单地址？", vbYesNo + vbQuestion, "账单地址确认")
            If billtoanswer = vbYes Then
                ' 将M4与M5内容合并写入F26
                Me.Range("F26").Value = Me.Range("M4").Value & ", " & Me.Range("M5").Value
            End If
        End If
    End If
End Sub

关键逻辑说明 #

1. 合并单元格特性处理：合并单元格的实际内容仅存储在左上角单元格（即M5），所以通过targetRange.Cells(1).Value获取内容
2. 空值判断：用Trim过滤纯空格输入，确保只有真正有内容时才触发弹窗
3. 编辑动作判断：Worksheet_Change事件仅在单元格内容被修改时触发，选中操作不会触发该事件，自然满足“仅选中不触发”的要求

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