vba - 循环遍历某个范围内的所有数字(除了少数数字)

Question

我需要循环 i = 1 到 99，但我想跳过一些特定的 i 值。我想跳过的数字是 41,83,87,91,92,93,98

我意识到我可以将所有操作嵌套在 i <> 41 中，或i <> 83 ETC。难道就没有更简单的方法吗？也许分配一个变量来包含要在 CSL 中跳过的值并使用Split ？我不知道我的脑子不灵了。请帮忙。

     For i = 1 To 99
         If i <> 41 And i <> 83 And i <> 87 And i <> 91 _
         And i <> 92 And i <> 93 And i <> 98 Then
             'do stuff
         End If
     Next i

更愿意设置一个变量，例如:

    not_use = "41,83,87,91,92,93,98"

然后有某种For i = 1 To 99除非在 not_use但据我所知，没有办法这样写。

Answer 1

您可以使用 Select Case 以比使用 If 语句更紧凑的方式指定要忽略的值:

For i = 1 To 99
  Select Case i
  Case 41, 83, 87, 91, 92, 93, 98
    'Do nothing
  Case Else
    'Do stuff
  End Select
Next