Innehållsförteckning
När du har manipulerat ett kalkylblad med VBA kan det vara nödvändigt att Autofit dina kolumner för att presentera det snyggaste slutresultatet som möjligt. Så här kan du automatiskt anpassa kolumner med VBA.
Autofit -kolumn med VBA
Denna kod anpassar automatiskt kolumnerna A och B. Autofitsen tillämpas på det aktiva arket.
| 1 | Kolumner ("A: B"). EntireColumn.Autofit |
Anpassa alla använda kolumner automatiskt
Vad händer om du vill Autofit alla använda kolumner i ett kalkylblad? Använd ovanstående metod i kombination med räkna antalet använda kolumner och en loop.
Följande kod anpassar alla använda kolumner automatiskt med VBA:
| 1234567891011 | Sub AutofitAllUsed ()Dim x Som heltalFör x = 1 till ActiveSheet.UsedRange.Columns.CountKolumner (x) .EntireColumn.autofitNästa xAvsluta Sub |
