Po manipulowaniu arkuszem roboczym za pomocą VBA może być konieczne automatyczne dopasowanie kolumn, aby zaprezentować najładniejszy możliwy wynik końcowy. Oto jak automatycznie dopasowywać kolumny za pomocą VBA.
Autodopasuj kolumnę za pomocą VBA
Ten kod automatycznie dopasowuje kolumny A i B. Autodopasowanie jest stosowane do aktywnego arkusza.
| 1 | Kolumny("A:B").EntireColumn.Autofit |
Automatycznie dopasuj wszystkie używane kolumny
Co zrobić, jeśli chcesz automatycznie dopasować wszystkie używane kolumny w arkuszu? Użyj powyższej metody w połączeniu z Policz liczbę używanych kolumn i pętlą.
Poniższy kod automatycznie dopasowuje wszystkie używane kolumny za pomocą VBA:
| 1234567891011 | Sub AutodopasujWszystkoUżyte()Dim x As IntegerDla x = 1 To ActiveSheet.UsedRange.Columns.CountColumns(x).EntireColumn.autofitNastępny xNapis końcowy |
