Как автоматически разместить строки/столбцы в vba?

Ключевые моменты

• В VBA вы можете использовать метод AutoFit для автоматического подгонки строк, столбцов и даже всего листа.
• Вам нужноуказать диапазон , после чего вы сможете использовать метод AutoFit.

Автоподбор столбца

Допустим, вы хотите автоматически настроить столбец A, код будет примерно таким:

 Range("A1").EntireColumn.AutoFit

В приведенной выше строке кода вы использовали свойство EntireColumn для ссылки на весь столбец ячейки A1.

Поскольку вы находитесь в электронной таблице, вы также можете использовать свойство columns и написать код, как показано ниже.

 Columns(1).AutoFit

Автоматически вписать линию

Аналогичным образом вы можете написать код для автоматической настройки линии. Допустим, вы хотите автоматически настроить строку 5, код будет такой:

 Range("A5").EntireRow.AutoFit

И если вы хотите использовать свойство строки, вы можете использовать код следующим образом.

 Rows(5).AutoFit

AutoFit UsedRange (строки и столбцы)

Теперь предположим, что вы хотите автоподбор только столбцов и строк, содержащих данные. В VBA есть свойство, называемое используемым диапазоном, которое вы можете использовать. Итак, код будет таким.

 ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit

И если вы хотите использовать конкретную таблицу, код будет таким.

 Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

Автоматически подогнать весь лист

А если вы хотите ссылаться на все столбцы и строки на листе, вы можете использовать свойство «CELLS». Вот код.

 Worksheets("Sheet1").Cells.EntireColumn.AutoFit Worksheets("Sheet1").Cells.EntireRow.AutoFit

Или вы также можете использовать оператор VBA With для написания кода, подобного приведенному ниже.

 With Worksheets("Sheet1").Cells .EntireColumn.AutoFit .EntireRow.AutoFit End With