Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe combineer ik twee kolommen in een met afwisselende waarden in Excel?

Hier zijn twee kolommen in een werkblad, wat de taak is om deze twee kolommen samen te voegen tot één kolom met het waardenalternatief zoals hieronder afgebeeld. Hoe kun je snel met de klus omgaan zonder ze een voor een opnieuw te ordenen?
doc voeg twee kolommen samen met een variabele 1

Voeg twee kolommen samen tot één met wisselwaarden per VBA-code

Voeg twee kolommen samen in één met afwisselende waarden door Kutools voor Excelgoed idee3


Voeg twee kolommen samen tot één met wisselwaarden per VBA-code

Om twee kolommen samen te voegen tot één met wisselwaarden, is er geen ingebouwde functie behalve VBA-code in Excel.

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster. Klik bijvoegsel > module om een ​​nieuwe lege module te maken.

2. Kopieer en plak onderstaande code in de module.

VBA: voeg twee kolommen samen tot één met waardealternatief

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

3. druk op F5 toets en selecteer twee kolommen die u wilt samenvoegen met het popping-dialoogvenster.
doc voeg twee kolommen samen met een variabele 2

4. klikken OK, selecteer in het tweede dialoogvenster een cel om het resultaat te plaatsen.
doc voeg twee kolommen samen met een variabele 3

5. klikken OK. Nu zijn de geselecteerde twee kolommen samengevoegd tot één en met de waardenalternatief.


Voeg twee kolommen samen in één met afwisselende waarden door Kutools voor Excel

Als je Kutools for Excel geïnstalleerd in Excel, zijn Transform Range hulpprogramma kan deze taak oplossen met alleen eenvoudige stappen van 3.

Kutools for Excel, met meer dan 200 handige functies, maakt uw werk eenvoudiger.

Na het installeren van Kutools voor Excel, doe het als volgt:(Gratis download nu Kutools voor Excel!)

1. Selecteer de kolommen (twee of meer) die u wilt samenvoegen, klik Kutools > Transform Range.
doc voeg twee kolommen samen met een variabele 4

2. In de Transform Range dialoog, check Range to single column optie en klik op Ok.
doc voeg twee kolommen samen met een variabele 5

3. Selecteer een cel om het resultaat in het pop-upvenster te plaatsen. Klik OK.
doc voeg twee kolommen samen met een variabele 6

Nu zijn de kolommen samengevoegd en zijn de waarden in een alternatieve volgorde.
doc voeg twee kolommen samen met een variabele 7


Met tabbladen bladeren en bewerken van meerdere Excel-werkmappen / Word-documenten als Firefox, Chrome, Internet Verkennen 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Excel-werkmappen of Word-documenten kunt bladeren in een Excel-venster of in een Word-venster en eenvoudig kunt schakelen tussen deze werkbladen door op hun tabbladen te klikken. Klik voor gratis 45-dag proef van Office Tab!

iet uitblinken

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.