Расширение ширины столбца на основе максимального значения в строке в VBA

У меня есть таблица с несколькими столбцами, и я изучаю расширение столбцов на основе значения в каждой строке.

Если значение в строке больше ширины столбца, то разверните ее до ширины значения строки.

Однако приведенный ниже код расширяет столбцы на основе значения из одного столбца и устанавливает ширину для всех из них.

Dim j As Integer, m As Integer With tRange.Columns .AutoFit m = ActiveCell.Offset(-1, 0).Columns(1).ColumnWidth For j = 1 To .Columns.Count If .Columns(j).ColumnWidth > m Then m = .Columns(j).ColumnWidth Next j .ColumnWidth = m End With 

Есть ли способ иметь ширину столбца для каждого столбца и устанавливать ширину отдельно, а не устанавливать ширину в глобальном масштабе?

Надеюсь, ты знаешь, что я имею в виду!

Чтобы автоподтвердить столбец для одного Range вы можете использовать Sub как показано ниже:

 Option Explicit Sub Test() AutoFitRangeColumn Sheet2.Range("B4") End Sub Sub AutoFitRangeColumn(ByVal rng As Range) rng.EntireColumn.AutoFit End Sub 

Замените весь код на

 tRange.Columns.AutoFit 

Это установит каждый столбец в вашем диапазоне («tRange») до соответствующего размера для этого столбца.

Interesting Posts

В отличие от того, как установить стоимость 29,00 для 11-значного формата без десятичной точки

Excel VBA Попытка создать новый рабочий лист

SSIS: как проверить, нет ли записи в плоском файле, но существует в базе данных

Избегайте состояния гонки в VBA Access с подзапросом

Excel, который будет искать конкретный текст, и если он найден, сделайте ячейку, на которой находится текст, прокрутите вверх до верхней части таблицы

как передать файл в поток с помощью python

скрипты электронной таблицы google автоматически заполняют последнюю ячейку в новой строке

Не выбранные ячейки влияют при использовании Selection.SpecialCells (xlCellTypeVisible) '

Функциональность гиперссылки в excel

Как выполнить автозаполнение столбца до достижения нового значения, затем автозаполнение с использованием этого значения

Как вставить строку в таблицу excel с номером столбца в oledb?

Как оценить эту формулу прямо в apache poi?

функция материала в excel

Листы Excel выбирают первую строку с c #

Экспорт Excel в CSV с разделителем каналов без изменения настроек разделителя списков

Давайте будем гением компьютера.