Excel VBA – select案例 – 多个testingexpression式

我正在尝试编写一个Select Case语句，查看整个A列中的一系列值，然后执行语句。

到目前为止，我可以让我的selectcase语句工作的A2行，但我不能让它与一个值的范围工作，而不给我一个'types不匹配错误'。

加工

Select Case range("A2").Value Case "01" range("G2").Value = "Admin" range("I2").Value = "None" range("J2").Value = "None" range("K2").Value = "None" range("H2").Value = "No Affiliation" range("T2").Value = "99999" 

不工作（ types不匹配错误 ）

 Select Case Range ("A2:A1000").Value Case "01" range("G2").Value = "Admin" range("I2").Value = "None" range("J2").Value = "None" range("K2").Value = "None" range("H2").Value = "No Affiliation" range("T2").Value = "99999" Case "A" range("G2").Value = "Dealer" range("I2").Value = "None" range("J2").Value = "None" range("K2").Value = "None" 

Answer 1

您需要遍历范围内的每个单元格，而“A2：A1000”将返回一个数组，而不是一个值。

 Sub SO() Dim rNum As Long For rNum = 2 To 1000 Select Case Range("A" & rNum).Value Case "01" Range("G" & rNum).Value = "Admin" Range("I" & rNum).Value = "None" Range("J" & rNum).Value = "None" Range("K" & rNum).Value = "None" Range("H" & rNum).Value = "No Affiliation" Range("T" & rNum).Value = "99999" Case "A" Range("G" & rNum).Value = "Dealer" Range("I" & rNum).Value = "None" Range("J" & rNum).Value = "None" Range("K" & rNum).Value = "None" Case Else '// Do something else... End Select Next rNum End Sub