Перейти к основному содержанию

Как автоматически подогнать ширину столбца в Excel?

В Excel вы можете быстро настроить ширину столбца в соответствии с содержимым ячейки, используя Автоподбор Ширина столбца характерная черта. Иногда вам нужно, чтобы ширина столбца автоматически обновлялась на основе самого длинного текста в этом столбце, то есть при вводе некоторой длинной текстовой строки в ячейку ширина столбца будет автоматически изменена, чтобы соответствовать длине содержимого. Можно ли с этим справиться в Excel?

Автоматическая подгонка ширины столбцов с кодом VBA

Автоматическая подгонка ширины столбцов с помощью сочетаний клавиш


стрелка синий правый пузырь Автоматическая подгонка ширины столбцов с кодом VBA

Кажется, что автоматическое обновление ширины столбца с учетом длины содержимого ячейки - это интересный трюк, вы можете использовать следующий код VBA, чтобы завершить его.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Затем дважды щелкните Эта рабочая тетрадь в Проект VBA объекты на левой панели, чтобы открыть пустой модуль, а затем скопируйте и вставьте следующий код VBA в модуль:

Код VBA: столбец с автоматическим подбором в книге

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

doc-autofit-ширина-столбца-1

3. Затем сохраните и закройте этот код, и теперь, когда вы вводите длинный текст в ячейку, ширина столбца автоматически настраивается в соответствии с содержимым.


стрелка синий правый пузырь Автоматическая подгонка ширины столбцов с помощью сочетаний клавиш

Если у вас есть несколько столбцов, часть содержимого ячейки которых скрыта, как показано на следующем снимке экрана, вы хотите сразу изменить ширину столбцов, чтобы они соответствовали их содержимому. Вам могут помочь следующие сочетания клавиш.

doc-autofit-ширина-столбца-1

1. Выберите диапазон данных, для которого вы хотите изменить ширину столбца.

2, Удерживать другой нажмите и нажмите Н + О + Я, и теперь ширина ваших столбцов сразу же автоматически подогнана под их содержимое. Смотрите скриншот:

doc-autofit-ширина-столбца-1

Примечание: Если вы используете Excel 2003 и более раннюю версию, вам необходимо использовать следующие сочетания клавиш: АЛТ + О + С + А.


Статьи по теме:

Как автоматически подогнать высоту строки объединенных ячеек в Excel?

Как изменить размер строки или ширины столбца в соответствии с текстом в Excel?

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations