Після того, як ви маніпулюєте робочим аркушем за допомогою VBA, може знадобитися автоматичне налаштування ваших стовпців, щоб представити найкращий можливий кінцевий результат. Нижче описано, як автоматично встановити стовпці за допомогою VBA.
Автомобільна колонка за допомогою VBA
Цей код автоматично підходить до стовпців A і B. Автоматичне встановлення застосовується до активного аркуша.
| 1 | Стовпці ("A: B"). EntireColumn.Autofit |
Автоматичне встановлення всіх використаних стовпців
Що робити, якщо ви хочете автоматично встановити всі використані стовпці на аркуші? Використовуйте вищезгаданий метод у поєднанні з підрахуванням кількості використаних стовпців та циклом.
Наступний код автоматично вписується у всі використані стовпці за допомогою VBA:
| 1234567891011 | Sub AutofitAllUsed ()Dim x як ціле числоДля x = 1 до ActiveSheet.UsedRange.Columns.CountСтовпці (x) .EntireColumn.autofitДалі xEnd Sub |
