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
- Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
- Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
- Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
- Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
- Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
- Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Sorteer per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
- Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.
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 KutoolsforExcel 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:
