如何判断选中的合并单元格是否为空？

lsc31415926

场景：判断合并单元格是否为空，若是，则提示单元格为空；若否，则输出单元格的值。

VBA代码（放在对应的sheet里）：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     With Target
   
4.         
   
5.         If .Address(0, 0) = "B6" Then
   
6.             If .Value = "" Then
   
7.                 MsgBox "单元格不能为空！"
   
8.             Else
   
9.                 MsgBox "单元格的值为：" & .Value
   
10.             End If
    
11.         End If
    
12.         
    
13.     End With
    
14.    
    
15. End Sub

复制代码

测试结果：
1. 如果输入某一个值，比如123，会弹窗提示单元格的值为123；
2.如果选中合并的单元格，按delete键删除单元格内容，则不会弹窗提示单元格已经为空；
3.如果双击空的合并单元格来编辑该单元格（但是不输入任何数据），然后退出编辑（点击合并单元格以外的任何区域），则会提示单元格为空。

求助：
如何能够实现选中合并单元格（不需要双击进入编辑模式）就会判断其是否为空值并弹窗提示？

lsc31415926

不知道为什么上传附件总是失败。。。只能贴个代码和图片了，其实很简单的一个功能，但是在合并单元格上却有瑕疵。

lsc31415926

请问有高手遇到过吗？是如何解决的？