După ce ați manipulat o foaie de lucru cu VBA, ar putea fi necesar să vă adaptați automat coloanele pentru a prezenta cel mai frumos rezultat final posibil. Iată cum se adaptează automat coloanele folosind VBA.
Autofit Column folosind VBA
Acest cod adaptează automat coloanele A și B. Adaptarea automată se aplică foii active.
1 | Coloane („A: B”). EntireColumn.Autofit |
Ajustează automat toate coloanele utilizate
Ce se întâmplă dacă doriți să adaptați automat toate coloanele utilizate într-o foaie de lucru? Utilizați metoda de mai sus în combinație cu Numărarea numărului de coloane utilizate și o buclă.
Următorul cod se potrivește automat cu toate coloanele folosite folosind VBA:
1234567891011 | Sub AutofitAllUsed ()Dim x Ca întregPentru x = 1 la ActiveSheet.UsedRange.Columns.CountColoane (x). ÎntregColoană.autofitUrmătorul xSfârșitul Sub |