Note: The other languages of the website are Google-translated. Back to English

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


pijl blauw rechts bel 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:



pijl blauw rechts bel 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:



Relatieve artikelen:

Heb je vragen? Stel ze hier. (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL