Astuces Excel
  1. Astuces Excel
  3. Gamme de données délimitée par l'espace de sélection automatique VBA Excel pour l'utilisation de la formule
Intereting Posts
Excel VBA: erreur dans le format de file lors de l'logging via VBA Recherche et remplacez les valeurs spécifiques par reference dans le tableau pivot C # Coller HTML vers Excel ou PowerPoint Excel to SQL – CEILING et code d'erreur 1582 Filtrage Tirant de la list Définir une échelle minimale de graphique excel en utilisant C # Transposer CopyFromRecordset Excel VBA Comment datatables de choix peuvent-elles être mises au model ou une autre ne le fait-elle pas? Implémentez la boîte de search dans la feuille de calcul actuelle avec la macro Montant de la facture moyenne par facture totale S'efforcer d'attacher des files aux e-mails Outlook via Excel VBA Abonnement hors gamme lorsque vous choisissez un classur Excel IF critreria Fichier java seulement les dernières données sont insérées dans le file Le code If-Then-Else que les cellules de Verrouillage / Délocking continue à échouer

Gamme de données délimitée par l'espace de sélection automatique VBA Excel pour l'utilisation de la formule

Assez nouveau à la programmation. J'ai des données dans Excel qui sont délimitées par une cellule vide en haut et en bas de chaque groupe (example, A1=empty, A2=a number, A3= a number, A4= a number, A5=Empty, A6=a number, A7=a number, A8=Empty) Ce motif se répète dans les milliers de lignes.

Je voudrais utiliser vba pour prendre la sum des nombres entre chaque set de cellules vides et placer cette valeur 6 cellules à droite de la cellule vide la plus haute pour chaque groupe.

Je ferais cela à la main, mais il y a une quantité de données. Il doit continuer jusqu'à ce qu'il atteigne 2 cellules vides d'une rangée (signifie la fin des données). Merci d'avance

Voici l'exemple qui devrait aider: 

 Sub SumGroups() Dim i As Long ' rows counter Dim j As Long ' first row of current group, having empty cell Dim s As Double ' summ i = 1 ' start row Do Until Cells(i, 1).Value = "" ' loop to first group begin i = i + 1 ' next row Loop j = i ' new group start s = 0 Do If Cells(i, 1).Value = "" Then ' empty cell found If j = i - 1 Then Exit Do ' finish if previous cell is also empty Cells(j, 2).Value = s ' put calculated summ at the top of the group j = i ' new group start s = 0 Else ' value cell found s = s + Cells(i, 1).Value ' add each value in the group End If i = i + 1 ' next row Loop End Sub