Jak automatycznie dopasować kolumny za pomocą vba (z przykładem)

Możesz użyć metody AutoFit w VBA, aby automatycznie dostosować szerokość jednej lub większej liczby kolumn w arkuszu programu Excel.

Oto powszechny sposób wykorzystania tej metody w praktyce:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

To konkretne makro automatycznie dostosowuje szerokość każdej kolumny w zakresie od A do D tak, aby była tak szeroka, jak jest to konieczne do wyświetlenia najdłuższej komórki w każdej kolumnie.

Poniższy przykład pokazuje jak w praktyce zastosować metodę AutoFit .

Przykład: Jak automatycznie dopasować kolumny za pomocą VBA

Załóżmy, że mamy w programie Excel następujący zbiór danych zawierający informacje o różnych koszykarzach:

Załóżmy, że chcemy automatycznie dostosować szerokość każdej kolumny od A do D, aby była tak szeroka, jak to konieczne, aby wyświetlić najdłuższą komórkę w każdej kolumnie.

W tym celu możemy utworzyć następujące makro:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że szerokość każdej kolumny została automatycznie dostosowana tak, aby była tak szeroka, jak to konieczne, aby wyświetlić najdłuższą komórkę w każdej kolumnie.

Pamiętaj, że jeśli chcesz automatycznie dostosować każdą kolumnę w określonym arkuszu, możesz użyć następującej składni:

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

To konkretne makro automatycznie dostosuje szerokość każdej kolumny w Arkuszu 1 tak, aby była tak szeroka, jak to konieczne, aby wyświetlić najdłuższą komórkę w każdej kolumnie.

Należy pamiętać, że szerokość wszystkich kolumn bez danych pozostanie niezmieniona.

Uwaga : Pełną dokumentację metody AutoFit w VBA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak policzyć liczbę użytych kolumn
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: jak usunąć kolumny