Excel VBA Macro: Tenter d'écrire quelque chose pour extraire des données de plusieurs feuilles de calcul en une seule (conditions plus difficiles à l'intérieur)

Question

J'essaie donc d'extraire des informations d'une colonne dans chaque feuille de mon classeur. Il y a actuellement 506 fiches. Chacun a un nombre différent de rangées et chaque feuille a son propre nom unique. Les données de chaque feuille que je veux commencer à la ligne 8, et il est dans la colonne J. J'essaie d'imprimer tous ces à la colonne C dans une page que j'ai appelé test qui est dans le même classeur mais n'est pas compté dans le 506 les feuilles que j'ai mentionnées plus tôt. Voilà ce que j'ai écrit jusqu'à présent:

Sub Test() 
Columns(3).Insert 
For i = 1 To i = 506 
    Do While Worksheets(i).Cells(i + 7, 10) <> Null 
     Worksheets("test").Cells(i, 3) = Worksheets(i).Cells(i + 7, 10) 
    Loop 
Next i 

End Sub 

Je viens de commencer avec aujourd'hui, mais j'ai l'expérience avec beaucoup d'autres langues si ma syntaxe peut être un peu trop large.

Merci à l'avance pour tout conseil/conseils que l'un de vous des gens génie peut offrir

Answer 1

Votre description a été Diferent de votre code, donc je l'aurez deviné ... Je pense que c'est proche de ce que vous voulez ...

Sub Test() 

    Dim WS_Count As Integer 
    Dim I As Integer 

    WS_Count = ActiveWorkbook.Worksheets.Count 


    For I = 1 To WS_Count 

     ' ONLY IF it is not TEST 
     If ActiveWorkbook.Worksheets(I).Name <> "TEST" Then 
      ActiveWorkbook.Worksheets("TEST").Cells(1, 3) = ActiveWorkbook.Worksheets(I).Cells(7, 10) 

     End If 

    Next I 

    End Sub