Перейти к содержимому

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

Author: Xiaoyang Last Modified: 2025-08-07

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

Изменение высоты каждой второй строки с помощью функции Фильтр

Изменение высоты каждой второй строки / ширины столбца с помощью кода VBA

Изменение высоты каждой второй строки / ширины столбца с помощью Kutools для Excel


Изменение высоты каждой второй строки с помощью функции Фильтр

Используя функцию Фильтр, вам нужно сначала создать вспомогательный столбец, а затем применить функцию Фильтр для фильтрации нужных строк и настроить высоту всех отфильтрованных строк сразу. Делайте следующее:

1. Рядом с вашими данными в пустой ячейке введите числа 0 и 1 отдельно в первую и вторую строки, затем выберите их и перетащите маркер заполнения до диапазона ячеек, где вы хотите настроить высоту строк, и выберите Копировать ячейки из меню маркера заполнения, и вы получите результат, как показано на следующем скриншоте:

a screenshot of manually entering 0 and 1 in column

2. Затем выберите вспомогательный столбец и нажмите Данные > Фильтр, затем нажмите doc-filter-button-1кнопку и выберите 0 или 1 из выпадающего списка. В этом примере я выберу 0, см. скриншот:

a screenshot of filtering all 0 cells

3. Нажмите OK, все строки, содержащие число 0, будут отфильтрованы. Затем выберите эти отфильтрованные строки и нажмите Главная > Формат > Высота строки, см. скриншот:

a screenshot of clicking the Row Height button

4. В диалоговом окне Высота строки введите желаемую высоту строки, см. скриншот:

a screenshot of specifying a certain row height

5. Затем нажмите OK, чтобы закрыть это диалоговое окно, и высота выбранных отфильтрованных строк будет настроена. Наконец, нажмите Данные > Фильтр, чтобы отключить функцию фильтра, и высота ваших строк будет изменена поочередно. См. скриншот:

a screenshot of new row height

Примечания:

1. Вы можете изменять высоту строк поочередно, начиная с первой строки.

2. Этот метод не применяется для изменения ширины столбца.

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


Изменение высоты каждой второй строки / ширины столбца с помощью кода VBA

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

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.

VBA код: Изменение высоты каждой второй строки на листе

Sub RowHeight()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Row height", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Rows.Count Step 2
    WorkRng.Rows(i).RowHeight = xInput
Next
End Sub

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

a screenshot of selecting range after running the VBA code

4. Затем нажмите OK, появится другое всплывающее окно, позволяющее ввести нужную высоту строки, см. скриншот:

a screenshot of entering row height

5. Затем нажмите OK, и высота строк выбранного диапазона будет изменена поочередно, начиная с первой строки. См. скриншот:

a screenshot of result

Примечания:

1. Если вы хотите настроить ширину каждого второго столбца, примените следующий код VBA:

VBA код: Изменение ширины каждого второго столбца на листе

Sub CloumnWidth()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Cloumn width", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Columns.Count Step 2
    WorkRng.Columns(i).ColumnWidth = xInput
Next
End Sub

2. Если вы хотите изменить высоту строки или ширину столбца, начиная со второй строки / столбца, просто выберите диапазон данных, начиная со второй строки / столбца.


Изменение высоты каждой второй строки / ширины столбца с помощью Kutools для Excel

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

Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатно попробуйте без ограничений в течение 30 дней.Получите сейчас.

1. Выберите диапазон данных, который вы хотите использовать.

2. Перейдите к Kutools > Выбрать > Выбрать интервал строк и столбцов, см. скриншот:

3. В диалоговом окне Выбрать интервал строк и столбцов отметьте Строки или Столбцы в разделе Выбрать по вашему желанию, а затем в разделе Опции введите Интервал и количество Столбцов или Строк. В этом примере я выберу столбцы, см. скриншот:

a screenshot of changing every other row height with Kutools for Excel

4. Затем нажмите OK, каждый второй столбец будет выбран в секции, см. скриншот:

a screenshot of selecting every other columns

5. Затем нажмите Главная > Формат > Ширина столбца и введите желаемое значение ширины столбца в диалоговом окне Ширина столбца, см. скриншоты:

a screenshot of clicking the Column Width option -2 a screenshot of entering a new column width

6. Затем нажмите OK, и ширина столбца будет изменена поочередно, начиная с первого столбца.

a result screenshot of new column widths

Примечания:

1. Чтобы выбрать каждую вторую строку, отметьте Строки в диалоговом окне Выбрать интервал строк и столбцов на шаге 3.

2. Если вы хотите изменить высоту строки или ширину столбца, начиная со второй строки / столбца, просто выберите диапазон данных, начиная со второй строки / столбца.


Связанные статьи:

Как закрасить каждую вторую или чередующуюся строку в Excel?

Как быстро удалить каждую вторую строку в Excel?


Лучшие инструменты для повышения продуктивности в Office

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

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


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

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