Les données d'origine ressemblent à ceci Entrez la description de l'image ici
Je veux faire le code VBA ci-dessous pour reproduire des centaines de temps pour des centaines de données de données
`sub mergecellsandcenter () fin Sub`
Quand j'exécute cette macro, cela fonctionne pour les 10 rangées. Je tiens à le faire fonctionner pour des centaines de lignes sans avoir à taper chaque code de jeu. "
3 Réponses :
Chaque fois que vous vous trouvez écrit de code répétitif, vous manquez de mettre en œuvre une boucle. Lucky vous, c'est le cas ici.
boucle à travers vos lignes (avec un intervalle de 2) et fusionner vos valeurs pour chacune de vos 3 colonnes individuellement. Il est également préférable d'attendre de formater vos cellules jusqu'à ce que votre boucle soit terminée. Pas besoin de répéter la même opération à l'intérieur de la boucle, qui peut s'avérer prendre du temps , lorsque vous pouvez formater toute la plage à la fois lorsque vous avez terminé avec la boucle.
J'ai regardé le lien. Ceux-ci ressemblent à des lignes vierges, basées sur ce que je vois. Mes yeux ne sont pas géniaux, mais cela ressemble à des blancs pour moi. Si vous souhaitez supprimer toutes les lignes vierges de votre plage d'utilisée, exécutez simplement le script ci-dessous.
Le code fonctionne. Merci beaucoup.
@ cendres, merci pour votre contribution même si ce n'était pas la demande.
La fusion des cellules avec les cellules vides situées au-dessous de chaque rangée est simplement appliquée aux colonnes B sur e et en commençant par la rangée n ° 05 et en boucle pour terminer les cellules avec des valeurs. Les colonnes F à H contiendront la liste déroulante (lignes 5 et 6) avec des valeurs relatives à l'ensemble de données dans la colonne B de C sur C aussi illustrée par Udearboy.
Encore une fois merci à tous.
Pourquoi voulez-vous les fusionner avec la ligne vide? Il suffirait de supprimer le travail des rangées vierges à la place?