Как объединить каждую вторую строку / ячейку в 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, и вы можете увидеть результат:
