VBA quelle est la meilleure façon d'incrémenter en boucle

Question

Quel serait un bon moyen d'incrémenter chacune de mes plages, par exemple j'ai besoin de x pour copier la plage B11: à G20 et collez-le à C10 pour la deuxième boucle. Chaque variable a des incréments différents.

Im en utilisant Excel 2010

Toute aide est appréciée parce que je suis avec horreur Visual Basic.

Dim i As Range, j As Range, k As Range 
Dim x As Range, y As Range 
Dim Num As Integer 

Num = 94 

Set x = Sheets("Sum Data").Range("B1:G10") 
Set j = Sheets("PNA Physical Needs Summary Data").Range("C4") 
Set i = Sheets("PNA Physical Needs Summary Data").Range("B4:B9") 
Set k = Sheets("Sum Data").Range("A1") 
Set p = Sheets("PNA Physical Needs Summary Data").Range("P3:P8") 
Set e = Sheets("PNA Physical Needs Summary Data").Range("A4:A9") 

Do 
    Sheets("Sum Data").Select 
    x.Copy 
    Sheets("PNA Physical Needs Summary Data").Select 
    j.Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
    False, Transpose:=True 

    p.Select 
    Selection.Copy 
    i.Select 
    ActiveSheet.Paste 

    Sheets("Sum Data").Select 
    k.Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("PNA Physical Needs Summary Data").Select 
    e.Activate 
    ActiveSheet.Paste 

    Num = Num - 1 

Loop Until Num = 0 

Answer 1

Vous pouvez utiliser Offset(). Par exemple:

Set x = x.Offset(rowOffset, colOffset) 

aussi - vous n'avez pas besoin de sélectionner des gammes copier:

p.Copy i 

est le même que:

p.Select  
Selection.Copy  
i.Select  
ActiveSheet.Paste