Hoppa till huvudinnehåll

Hur slår man samman två kolumner i en med alternerande värden i Excel?

Här är två kolumner i ett kalkylblad, vad jobbet är att slå samman dessa två kolumner i en kolumn med värdena som visas nedan. Hur kan du snabbt hantera jobbet utan att ordna dem en efter en?
doc slå samman två kolumner i en med alternerande värde 1

Slå samman två kolumner i en med alternerande värden med VBA-kod

Slå samman två kolumner i en med alternerande värden av Kutools för Excelbra idé3


Slå samman två kolumner i en med alternerande värden med VBA-kod

För att slå samman två kolumner i en med alternerande värden finns det ingen inbyggd funktion förutom VBA-kod i Excel.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster. Klick Insert > Modulerna för att skapa en ny tom modul.

2. Kopiera och klistra in koden nedan till modulen.

VBA: Slå samman två kolumner i en med värdealternativ

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. Tryck F5 och välj två kolumner som du vill slå samman till poppdialogen.
doc slå samman två kolumner i en med alternerande värde 2

4. klick OK, i den andra dialogen, välj en cell för att placera resultatet.
doc slå samman två kolumner i en med alternerande värde 3

5. klick OK. Nu har de två valda kolumnerna slås samman till en och med värdena alternativ.


Slå samman två kolumner i en med alternerande värden av Kutools för Excel

Om du har Kutools för Excel installerad i Excel, dess Transform Range verktyget kan lösa detta jobb med bara tre enkla steg.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

När du har installerat Kutools för Excel, gör så här:(Gratis nedladdning Kutools för Excel nu!)

1. Markera de kolumner (två eller fler) du vill slå samman, klicka Kutools > Transform Range.
doc slå samman två kolumner i en med alternerande värde 4

2. I Transform Range dialogrutan, kontrollera Range to single column alternativet och klicka på Ok.
doc slå samman två kolumner i en med alternerande värde 5

3. Välj en cell för att placera resultatet i poppdialogen. Klick OK.
doc slå samman två kolumner i en med alternerande värde 6

Nu har kolumnerna slås ihop till en och värdena är i alternativ ordning.
doc slå samman två kolumner i en med alternerande värde 7

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It worked! Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations