Как объединить каждую вторую строку или ячейку в Excel?
Если у вас есть список данных и вы хотите объединить каждую вторую строку или ячейку, как показано ниже, знаете ли вы, как это сделать? В Excel для объединения каждой второй строки или ячеек можно воспользоваться формулой или кодом VBA.
Использование формулы для объединения каждой второй строки или ячейки в Excel
Использование кода VBA для объединения каждой второй строки или ячейки в Excel
Использование формулы для объединения каждой второй строки или ячейки в Excel
Выберите пустую ячейку, введите приведённую ниже формулу и нажмите клавишу Enter.
=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)Затем перетащите маркер заполнения вниз, чтобы применить формулу ко всему нужному диапазону.
Использование кода VBA для объединения каждой второй строки или ячейки в Excel
Если вы привыкли работать с VBA, вы можете использовать приведённый ниже код для объединения каждой второй строки.
1. Удерживая клавишу «ALT», нажмите «F11» на клавиатуре, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите «Вставка» > «Модуль» и вставьте код VBA в открывшийся модуль.
VBA: Объединение каждой второй строки/ячейки
Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. Нажмите «Выполнить», чтобы запустить код VBA. Откроется диалоговое окно «Kutools for Excel» — выберите в нём диапазон ячеек для объединения каждой второй строки. См. снимок экрана:
4. Нажмите «OK». Откроется новое диалоговое окно, в котором нужно выбрать одну ячейку для вывода результата объединения. См. снимок экрана:
5. Нажмите «OK» — и вы сразу увидите результат:
Связанные статьи:
- Выделение каждой второй или каждой n-й строки в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек