Как да обединим всеки друг ред/клетка в Excel?
Ако имате списък с данни и искате да комбинирате всеки друг ред или клетка от тях, както е показано по-долу, знаете ли как да го направите? В Excel можете да използвате формула или VBA, за да обедините всеки друг ред или клетки.
Обединете всеки друг ред/клетка с формула в Excel
Обединете всеки друг ред/клетка с VBA
Обединете всеки друг ред/клетка с формула в Excel
Изберете празна клетка и въведете =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A$1 показва първите данни във вашия списък, можете да ги промените според нуждите си) и натиснете клавиша Enter. След това плъзнете манипулатора за запълване, за да запълните диапазона, от който се нуждаете, за да приложите тази формула. Вижте екранна снимка:
Обединете всеки друг ред/клетка с VBA
Ако сте свикнали да използвате VBA, можете също да стартирате VBA по-долу, за да обедините всеки друг ред.
1. държа ALT бутон и натиснете F11 на клавиатурата, за да отворите a 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 кода и a Kutools за Excel се появява диалогов прозорец, за да изберете диапазон от клетки, които искате да обедините във всеки друг ред. Вижте екранна снимка:
4. кликване OK, се показва друг диалогов прозорец, за да изберете една клетка, за да изведете обединения резултат. Вижте екранна снимка:
5. кликване OK, и можете да видите резултата:
