Looping Code/Skipping lignes

Question

Je suit dans un morceau de code VBA:

For i = 1 To 5 
    myArray(i) = i + 0 
Next i 
For i = 6 To 8 
    myArray(i) = i + 1 
Next i 
For i = 9 To 14 
    myArray(i) = i + 2 
Next i 

... etc

Il doit y avoir une meilleure façon de le faire, mais pour la vie de moi Je ne peux pas y penser. Quelqu'un pourrait-il aider? Peut-être quelque chose avec la syntaxe Select..Case?

Éditer: il s'agit en fait de plusieurs sous-divisions de zones de l'entreprise. les lignes que je "saute" sont des totaux calculés automatiquement desdites zones.

Answer 1

Étant donné que les lignes que vous sautez ne sont pas uniformes et, à partir du son, peuvent changer vous ne voulez probablement pas les coder en dur dans plusieurs lignes d'une instruction Select. Il est peut-être plus facile de les enregistrer dans un Array:

'Create an Array of Rows to Skip 
rowsToSkip = Array(6, 9) 

'Loop over all data 
For i = 1 To 14 
    skipcount = 0 

    'For each skip row we have passed add one to the skipcount 
    For Each rownum In rowsToSkip 
     If i >= rownum Then 
      skipcount = skipcount + 1 
     End If 
    Next rownum 

    myArray(i) = i + skipcount 
Next i 

Answer 2

For i = 1 to 14 
    select case i 
     case 1 to 5 
      myArray(i) = i + 0 
     case 6 to 8 
      myArray(i) = i + 1 
     case 9 to 14 
      myArray(i) = i + 2 
    end select 
Next i