Hoe elke tweede rij of cel in Excel samenvoegen?

Als u een lijst met gegevens heeft en u wilt elke andere rij of cel ervan combineren zoals hieronder weergegeven, weet u dan hoe u dit kunt doen? In Excel kunt u formules of VBA gebruiken om elke andere rij of cellen samen te voegen.

Gebruik een formule om elke tweede rij of cel in Excel samen te voegen

Gebruik VBA-code om elke tweede rij of cel in Excel samen te voegen

Gebruik een formule om elke tweede rij of cel in Excel samen te voegen

Selecteer een lege cel, voer de volgende formule in en druk op de "Enter"-toets.

=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)

Sleep vervolgens de vulgreep omlaag om het bereik dat u nodig hebt om deze formule toe te passen te vullen.

Gebruik VBA-code om elke tweede rij of cel in Excel samen te voegen

Als u gewend bent om VBA te gebruiken, kunt u ook de onderstaande VBA uitvoeren om elke andere rij samen te voegen.

1. Houd de "ALT"-knop ingedrukt en druk op "F11" op het toetsenbord om een "Microsoft Visual Basic for Application"-venster te openen.

2. Klik op "Invoegen" > "Module", en kopieer de VBA in de module.

VBA: Elke andere rij/cel samenvoegen

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. Klik op "Uitvoeren" om de VBA-code uit te voeren, en er verschijnt een dialoogvenster "KutoolsforExcel" waarin u een bereik van cellen kunt selecteren dat u wilt samenvoegen voor elke andere rij. Zie screenshot:

4. Klik op "OK", een ander dialoogvenster verschijnt waarin u een enkele cel kunt selecteren om het samengevoegde resultaat in te plaatsen. Zie screenshot:

5. Klik op "OK", en u kunt het resultaat zien:

Gerelateerde artikelen:

• Selecteer elke andere of elke n-de rij in Excel
• Kopieer elke andere rij
• Verwijder elke andere rij