[已解决]case 语句求助

zhangchin

Dim a, b As Integer, c As String
b = Sheet10.[a65536].End(xlUp).Row - 1
For a = 1 To b Step 1
c = Cells(a + 1, "Au")
  Select Case c
Case Is = "58" Or "42" 'Or "172" Or "62"  （满足同等条件 CASE 语句只能分开很多 case 语句吗，想并列写在一起怎么办）
   执行同样的程序
Case Is = "49" 'Or "331" Or "338" Or "413" Or "414" Or "415"  （满足同等条件 CASE 语句只能分开很多 case 语句吗，想并列写在一起怎么办）
  执行同样的程序
  Case Else
执行同样的程序
End Select
Next a

最佳答案

月排行榜 / 总排行榜

mxg825

2011-12-7 12:24

Dim a, b As Integer, C As String
b = Sheet10.[a65536].End(xlUp).Row - 1
For a = 1 To b Step 1
C = Cells(a + 1, "Au")
Select Case CInt(C)
Case Is = 58, 42, 172, 62 '  （满足同等条件 CASE 语句只能分开很多 case 语句吗，想并列写在一起怎么办）
   '执行同样的程序1
Case Is = 49, 331, 338, 413 To 415   ' （满足同等条件 CASE 语句只能分开很多 case 语句吗，想并列写在一起怎么办）
  '执行同样的程序2
  Case Else
    '执行同样的程序3
End Select
Next a

跳转到最佳答案楼层

兰色幻想

不用数组也可以
直接用if判断
if instr("-58-42-172-62-","-" & c &"-") >0 then
   ,,
  elseif

mxg825

Dim a, b As Integer, C As String
b = Sheet10.[a65536].End(xlUp).Row - 1
For a = 1 To b Step 1
C = Cells(a + 1, "Au")
Select Case CInt(C)
Case Is = 58, 42, 172, 62 '  （满足同等条件 CASE 语句只能分开很多 case 语句吗，想并列写在一起怎么办）
   '执行同样的程序1
Case Is = 49, 331, 338, 413 To 415   ' （满足同等条件 CASE 语句只能分开很多 case 语句吗，想并列写在一起怎么办）
  '执行同样的程序2
  Case Else
    '执行同样的程序3
End Select
Next a

zhangchin

多谢多谢