Wpisujesz długie nagłówki w Excelu i za każdym razem musisz ręcznie rozszerzać kolumny? Istnieje proste makro VBA, które automatycznie dopasowuje szerokość kolumn do wpisanego tekstu – bez klikania.
Problem – kolumny nie nadążają za tekstem
Domyślnie kolumny w Excelu mają stałą szerokość. Gdy wpisujesz dłuższy tekst (np. „Imię i nazwisko”, „Województwo zamieszkania”), zawartość się ucina lub wychodzi poza komórkę. Musisz ręcznie dopasowywać każdą kolumnę – podwójne kliknięcie na krawędzi nagłówka lub przeciąganie.
Rozwiązanie – proste makro VBA
Kliknij prawym przyciskiem myszy na zakładkę arkusza (np. „Arkusz1”) i wybierz „Wyświetl kod”. Otworzy się edytor VBA. Na górze wybierz Worksheet, a z listy po prawej SelectionChange.
Kod makra
Wpisz jedną linijkę kodu między Private Sub a End Sub:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.EntireColumn.AutoFit
End SubTo wszystko! Makro uruchamia się automatycznie przy każdej zmianie zaznaczenia w arkuszu i dopasowuje szerokość wszystkich kolumn.
Efekt
Zamknij edytor VBA i wróć do arkusza. Teraz gdy wpiszesz cokolwiek – kolumna automatycznie dopasuje się do szerokości tekstu. Bez klikania, bez przeciągania.
Podsumowanie
Jedno makro, jedna linijka kodu – i kolumny w Excelu zawsze mają idealną szerokość. Pamiętaj, żeby zapisać plik jako .xlsm (z obsługą makr), inaczej makro zostanie usunięte przy zamykaniu.
Chcesz sprawdzić swoje umiejętności? Rozwiąż test z 15 zadaniami i zobacz, na jakim jesteś poziomie!