Poté, co manipulujete s listem pomocí VBA, může být nutné Autofit vaše sloupce, aby se zobrazil co nejhezčí konečný výsledek. Zde je návod, jak automaticky přizpůsobovat sloupce pomocí VBA.
Autofit Column pomocí VBA
Tento kód automaticky přizpůsobuje sloupce A a B. Automatické přizpůsobení se použije na aktivní list.
1 | Sloupce („A: B“). EntireColumn.Autofit |
Autofit Všechny použité sloupce
Co když chcete automaticky přizpůsobit všechny použité sloupce v listu? Použijte výše uvedenou metodu v kombinaci s počítáním počtu použitých sloupců a smyčkou.
Následující kód automaticky přizpůsobí všechny použité sloupce pomocí jazyka VBA:
1234567891011 | Sub AutofitAllUsed ()Dim x As IntegerPro x = 1 na ActiveSheet.UsedRange.Columns.CountSloupce (x). EntireColumn.autofitDalší xEnd Sub |