Как объединить каждую вторую строку / ячейку в Excel?

Если у вас есть список данных, и вы хотите объединить каждую вторую строку или ячейку из них, как показано ниже, знаете ли вы, как это сделать? В Excel вы можете использовать формулу или VBA для объединения всех остальных строк или ячеек.

Объединить каждую вторую строку / ячейку с формулой в Excel

Объедините каждую вторую строку / ячейку с VBA

Объединить каждую вторую строку / ячейку с формулой в Excel

Выберите пустую ячейку и введите =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) ($ 1 обозначает первые данные в вашем списке, вы можете изменить их по своему усмотрению) и нажмите клавишу Enter. Затем перетащите маркер заполнения, чтобы заполнить диапазон, необходимый для применения этой формулы. Смотрите скриншот:

Объедините каждую вторую строку / ячейку с VBA

Если вы привыкли использовать VBA, вы также можете запустить приведенный ниже 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. Нажмите Run для запуска кода VBA и KutoolsforExcel Появится диалоговое окно, в котором вы можете выбрать диапазон ячеек, которые вы хотите объединить с каждой второй строкой. Смотрите скриншот:

4. Нажмите OK, откроется другое диалоговое окно, в котором вы можете выбрать одну ячейку для вывода объединенного результата. Смотрите скриншот:

5. Нажмите OK, и вы можете увидеть результат:

Относительные статьи:

• Выберите каждую вторую или n-ю строку в Excel
• Копировать каждую вторую строку
• Удалить каждую вторую строку