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

Jak sloučit dva sloupce do jednoho se střídavými hodnotami v aplikaci Excel?

Zde jsou dva sloupce v listu, co je úkolem sloučit tyto dva sloupce do jednoho sloupce s alternativou hodnot, jak je uvedeno níže. Jak můžete rychle zvládnout úlohu, aniž byste je postupně objednávali?
doc sloučí dva sloupce do jednoho se střídavou hodnotou 1

Sloučte dva sloupce do jednoho se střídáním hodnot podle kódu VBA

Sloučit dva sloupce do jednoho se střídajícími se hodnotami pomocí Kutools pro Exceldobrý nápad3


Sloučte dva sloupce do jednoho se střídáním hodnot podle kódu VBA

Chcete-li sloučit dva sloupce do jednoho se střídavými hodnotami, neexistuje žádná vestavěná funkce kromě kódu VBA v aplikaci Excel.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno. Klikněte na tlačítko Vložit > Modul k vytvoření nového prázdného modulu.

2. Zkopírujte a vložte níže uvedený kód do modulu.

VBA: Sloučit dva sloupce do jednoho s alternativou hodnoty

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. lis F5 a vyberte dva sloupce, které chcete sloučit do rozbalovacího dialogu.
doc sloučí dva sloupce do jednoho se střídavou hodnotou 2

4. cvaknutí OK, ve druhém dialogu vyberte buňku, do které chcete umístit výsledek.
doc sloučí dva sloupce do jednoho se střídavou hodnotou 3

5. cvaknutí OK. Nyní byly vybrané dva sloupce sloučeny do jednoho a s alternativou hodnot.


Sloučit dva sloupce do jednoho se střídajícími se hodnotami pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován v aplikaci Excel, jeho Transform Range obslužný program může vyřešit tuto práci pouze se 3 snadnými kroky.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte sloupce (dva nebo více), které chcete sloučit, klepněte na Kutools > Transform Range.
doc sloučí dva sloupce do jednoho se střídavou hodnotou 4

2. V Transform Range dialog, zkontrolujte Range to single column a klepněte na tlačítko Ok.
doc sloučí dva sloupce do jednoho se střídavou hodnotou 5

3. Vyberte buňku a umístěte výsledek do rozbalovacího dialogu. Klepněte na OK.
doc sloučí dva sloupce do jednoho se střídavou hodnotou 6

Nyní byly sloupce sloučeny do jednoho a hodnoty jsou v alternativním pořadí.
doc sloučí dva sloupce do jednoho se střídavou hodnotou 7


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Fungovalo to! Děkuji!!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL