Как настроить чередование высоты строк и ширины столбцов в Excel?
Предположим, у вас есть большой лист с множеством столбцов или строк, ширину или высоту которых нужно настроить в чередующемся порядке. Если таких столбцов или строк немного, вы можете вручную задать высоту строк или ширину столбцов по отдельности. Но как быстро изменить сразу несколько значений высоты строк или ширины столбцов в Excel?
Изменение каждого второго Высота строки с помощью функции фильтрации
Изменение каждого второго Высота строки / Ширина столбца с помощью кода VBA
Изменение каждого второго Высота строки / Ширина столбца с помощью Kutools для Excel
Изменение каждого второго Высота строки с помощью функции фильтрации
С помощью функции Фильтр сначала создайте вспомогательный столбец, затем примените фильтрацию, чтобы отобразить нужные строки, и настройте высоту всех отфильтрованных строк одновременно. Выполните следующие действия:
1. Рядом с вашими данными в пустой ячейке введите число 0 в первую строку и 1 — во вторую. Выделите обе ячейки и перетащите маркер заполнения до конца диапазона, для которого нужно настроить высоту строк. Затем в контекстном меню маркера заполнения выберите пункт Копировать ячейки — и вы получите результат, как показано на следующем снимке экрана:
2. Затем выделите вспомогательный столбец и нажмите Данные > Фильтр, после чего щелкните 
кнопку и выберите 0 или 1 из раскрывающегося списка. В данном примере выбирается 0 (см. снимок экрана):
3. Нажмите ОК, и все строки, содержащие число 0, будут отфильтрованы. Затем выделите эти отфильтрованные строки и выберите Главная > Формат > Высота строки (см. снимок экрана):
4. В диалоговом окне Высота строки укажите желаемое значение высоты строки (см. снимок экрана):
5. Затем нажмите ОК, чтобы закрыть это диалоговое окно — выбранные отфильтрованные строки изменят свою высоту. Наконец, нажмите Данные > Фильтр, чтобы отменить фильтрацию, и высота строк будет изменена поочерёдно. См. снимок экрана:
Примечания:
1. Можно последовательно изменять высоту строк, начиная с первой.
2. Этот метод не применяется для изменения ширины столбца.
3. После завершения процедуры вспомогательный столбец при необходимости можно удалить.
Изменение каждого второго Высота строки / Ширина столбца с помощью кода VBA
Если вам нужно изменить и высоту строк, и ширину столбцов, следующий код VBA поможет справиться с этой задачей.
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
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, чтобы выполнить этот код. После этого появится диалоговое окно с запросом на выбор диапазона, для которого нужно настроить высоту строк (см. снимок экрана):
4. Затем нажмите ОК, после чего появится ещё одно диалоговое окно для ввода требуемого значения высоты строки (см. снимок экрана):
5. Затем нажмите ОК, и высота строк в выбранном диапазоне будет изменена поочерёдно, начиная с первой строки. См. снимок экрана:
Примечания:
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. В диалоговом окне Выбрать строки/столбцы с интервалами в разделе «Выделить» отметьте нужный вариант — Строки или Столбцы, а затем в разделе «Параметры» укажите интервал: каждые Интервал Выделить Столбцов или Строк. В данном примере выбираются столбцы (см. снимок экрана):
4. Затем нажмите ОК, и каждый второй столбец в указанном диапазоне будет выделен (см. снимок экрана):
5. Затем нажмите Главная > Формат > Ширина столбца и введите желаемое числовое значение ширины столбца в диалоговом окне Ширина столбца (см. снимки экрана):
 |  |  |
6. Затем нажмите ОК, и ширина столбцов будет последовательно изменена, начиная с первого.
Примечания:
1. Чтобы выделить каждую вторую строку, на шаге 3 в диалоговом окне Выбрать строки/столбцы с интервалами отметьте Строки.
2. Если нужно изменить высоту строк или ширину столбцов, начиная со второй строки или столбца, просто выделите диапазон данных, начиная со второй строки или столбца.
Связанные статьи:
Как закрасить каждую вторую (чередующуюся) строку в Excel?
Как быстро удалить каждую вторую строку в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек