Fusionner deux cellules verticalement et créer une boucle jusqu'à la dernière ligne

J'ai actuellement du mal à faire tourner une boucle pour fusionner verticalement deux cellules. Dans l'image, vous pouvez voir de quoi je parle: je dois fusionner C1 et C2, puis avancer et fusionner C3 et C4 et ainsi de suite ... jusqu'à ce qu'il n'y ait plus de données.Fusionner deux cellules verticalement et créer une boucle jusqu'à la dernière ligne

Quelqu'un peut-il m'aider avec ça? Je n'ai aucune idée comment créer une boucle ayant toutes les lignes vides entre .. Merci Andy

Click here to see the screenshot

Source

2017-02-16 Andy Weinzierl

P louer après votre tentative, même si cela n'a pas fonctionné. –

Je l'aurais fait, mais je n'avais vraiment aucune idée de comment faire ça .. –

Utilisez quelque chose comme,

Dim lastR as Integer 

'get the last used row in col C 
lastR = Sheets("Sheet1").Cells(Rows.Count, 3).End(xlUp).Row 

For i = 1 to lastR step 2 
    Range(Cells(i, 3), Cells(i + 1, 3)).Merge 
Next i

Lorsque la 10 est à quelle distance vous voulez aller, i est la ligne de départ, et 3 est la 3e colonne, C.

Source

2017-02-16 20:33:50

Wow, le "step" est un grand mouvement dont je n'ai jamais entendu parler auparavant. Merci pour cela, fonctionne parfaitement! Y a-t-il une chance de trouver une dernière rangée au lieu des 10? Il doit être en quelque sorte possible de dire que la fosse est où deux vides après le dernier contenu se produisent ... ou ai-je tort? –

@AndyWeinzierl voir ici pour les méthodes pour trouver la dernière cellule, puis ajouter 1: http://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba –

Il suffit de googler 'Excel find last rangée VBA 'vous donnera la réponse, mais j'ai édité la question indépendamment. –

Fusionner deux cellules verticalement et créer une boucle jusqu'à la dernière ligne

Répondre

Questions connexes