如何修改VBA的Worksheet_SelectionChange事件实现空单元格不执行复制

你可以在现有代码里加入空单元格判断逻辑，VBA中可以用IsEmpty()函数直接检测单元格是否为空，也可以通过判断Target.Value = ""来实现。修改后的代码如下：

Sub Worksheet_SelectionChange(ByVal Target As Range) 'single click version
    ' 先判断是否选中指定区域外的单元格
    If Intersect(Target, Range("A5:S29")) Is Nothing Then
        Application.CutCopyMode = False   'clears clipboard and stops cell flashing - like pushing escape key
        Exit Sub
    End If
    
    ' 判断选中单元格是否为空，为空则直接退出
    If IsEmpty(Target.Value) Or Target.Value = "" Then
        Exit Sub
    End If
    
    ' 执行复制、激活和计算操作
    Target.Copy Worksheets("SPC").Range("R2")
    Worksheets("SPC").Activate
    Application.Calculate
End Sub

修改说明： #

• 把原有的Else分支拆分，先完成区域判断，再单独做空单元格检查，逻辑更清晰
• 用IsEmpty()结合空字符串判断，覆盖单元格真正为空和单元格值是空字符串的两种情况
• 如果检测到空单元格，直接Exit Sub，不执行后续复制激活操作

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