Hoe elke andere rij / cel samenvoegen in Excel?
Als u een lijst met gegevens heeft en u wilt elke rij of cel ervan combineren zoals hieronder wordt weergegeven, weet u dan hoe u dit voor elkaar krijgt? In Excel kunt u formule of VBA gebruiken om elke andere rij of cellen samen te voegen.
Voeg elke andere rij / cel samen met de formule in Excel
Voeg elke andere rij / cel samen met VBA
Voeg elke andere rij / cel samen met de formule in Excel
Selecteer een lege cel en typ =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 geeft de eerste gegevens in uw lijst aan, u kunt deze naar behoefte wijzigen) en druk op de Enter-toets. Sleep vervolgens de vulgreep om het bereik te vullen dat u nodig hebt om deze formule toe te passen. Zie screenshot:
Voeg elke andere rij / cel samen met VBA
Als u gewend bent om VBA te gebruiken, kunt u ook de onderstaande VBA uitvoeren om elke andere rij samen te voegen.
1. Houden ALT knop en druk op F11 op het toetsenbord om een Microsoft Visual Basic voor toepassing venster.
2. klikken Invoegen > Moduleen kopieer de VBA naar de module.
VBA: voeg elke andere rij / cel samen
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. klikken lopen om de VBA-code uit te voeren, en een KutoolsvoorExcel Er verschijnt een dialoogvenster waarin u een reeks cellen kunt selecteren die u om de andere rij wilt samenvoegen. Zie screenshot:
4. klikken OK, wordt een ander dialoogvenster weergegeven waarin u een enkele cel kunt selecteren om het samengevoegde resultaat weer te geven. Zie screenshot:
5. klikken OK, en je kunt het resultaat zien: