excel - 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

在您的 Select Case 中添加一个 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