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