使用VBA Excel的案例语法

Question

我正在尝试评估每个单元格，如果A中的值是01,06,42,66而B中的值是外部，那么DoStuff。

使用以下case语句，它只会获得66而不是其余的。我可以为每个组合写一个案例陈述，但这太过分了。你对如何简化这个有什么建议吗？

Select Case .Range("A" & i).Value A & .Range("B" & i).Value 
Case "01","06","42","66" & "Outside" 
    DoStuff
End Select 

Answer 1

在您的选择案例中添加一个if：

Select Case .Range("A" & i).Value    
Case "01","06","42","66"
    If .Range("B" & i).Value = "Outside" Then
        DoStuff
    End If
End Select 

或者你需要连接所有选择：

Select Case .Range("A" & i).Value  & .Range("B" & i).Value 
Case "01Outside","06Outside","42Outside","66Outside"
    DoStuff
End Select