Як автоматично підібрати стовпці за допомогою vba (з прикладом)

Ви можете використовувати метод AutoFit у VBA, щоб автоматично регулювати ширину одного або кількох стовпців на аркуші Excel.

Ось поширений спосіб використання цього методу на практиці:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Цей конкретний макрос автоматично регулює ширину кожного стовпця в діапазоні від A до D так, щоб він був настільки широким, наскільки це необхідно для відображення найдовшої клітинки в кожному стовпці.

У наступному прикладі показано, як використовувати метод AutoFit на практиці.

Приклад: як автоматично підібрати стовпці за допомогою VBA

Припустімо, у нас є такий набір даних у Excel, який містить інформацію про різних баскетболістів:

Припустімо, ми хочемо автоматично налаштувати ширину кожного стовпця від A до D так, щоб він був настільки широким, наскільки це необхідно для відображення найдовшої клітинки в кожному стовпці.

Для цього ми можемо створити такий макрос:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зауважте, що ширина кожного стовпця була автоматично налаштована так, щоб вона була настільки широкою, наскільки це необхідно для відображення найдовшої клітинки в кожному стовпці.

Зверніть увагу: якщо ви хочете автоматично налаштувати кожен стовпець на певному робочому аркуші, ви можете використовувати такий синтаксис:

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

Цей конкретний макрос автоматично регулює ширину кожного стовпця в аркуші Sheet1 так, щоб він був настільки широким, наскільки це необхідно для відображення найдовшої клітинки в кожному стовпці.

Зауважте, що ширина всіх стовпців без даних залишиться незмінною.

Примітка . Ви можете знайти повну документацію методу AutoFit у VBA тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як підрахувати кількість використаних стовпців
VBA: як знайти останній використаний стовпець
VBA: як видалити стовпці