VBA如何根据Setup工作表单元格值跳过调用对应宏

代码判断失效的核心原因是工作表对象引用不完整：

• 你虽然声明了指向Setup工作表的ws对象，但后续赋值rng时使用的Range("A3")、Range("D3")、Range("G3")没有加ws.前缀，VBA默认会读取当前激活工作表的对应单元格值，而非Setup表的目标单元格值，最终导致空值判断结果和预期不符。
• 代码存在冗余：对单个单元格使用For Each循环遍历没有实际意义，可以直接判断单元格值，精简逻辑。

Sub CE_Import()
    Dim ws As Worksheet
    ' 绑定Setup工作表对象
    Set ws = ThisWorkbook.Sheets("Setup")
    
    ' 逐一对Setup表目标单元格做非空判断，非空才调用对应宏
    If ws.Range("A3").Value <> "" Then
        Call MSI_Import
    End If
    
    If ws.Range("D3").Value <> "" Then
        Call IGH_Import
    End If
    
    If ws.Range("G3").Value <> "" Then
        Call TCell_Import
    End If
    
    ' 固定执行的宏不受空值判断影响
    Call Hidden_Import
End Sub

• 编写VBA单元格操作逻辑时，所有Range/Cells对象如果不明确指定父工作表，都会默认指向当前激活的工作表，很容易出现跨表取值错误，建议所有涉及特定工作表的单元格调用，都显式绑定对应的工作表对象。
• 如果需要排除单元格内仅存在空格、肉眼看起来为空的“伪空值”场景，可以把判断条件调整为Trim(ws.Range("A3").Value) <> ""，避免误判触发宏调用。

内容的提问来源于stack exchange，提问作者Sylvain.A