Przejdź do głównej zawartości

Jak połączyć dwie kolumny w jedną z naprzemiennymi wartościami w programie Excel?

Oto dwie kolumny w arkuszu roboczym, jakie zadanie polega na scaleniu tych dwóch kolumn w jedną kolumnę z alternatywnymi wartościami, jak pokazano poniżej. Jak możesz szybko wykonać zadanie bez zmiany kolejności ich pojedynczo?
doc łączy dwie kolumny w jedną z naprzemienną wartością 1

Połącz dwie kolumny w jedną z naprzemiennymi wartościami według kodu VBA

Połącz dwie kolumny w jedną z naprzemiennymi wartościami przez Kutools for Exceldobry pomysł 3


Połącz dwie kolumny w jedną z naprzemiennymi wartościami według kodu VBA

Aby scalić dwie kolumny w jedną z naprzemiennymi wartościami, nie ma wbudowanej funkcji oprócz kodu VBA w programie Excel.

1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno. Kliknij wstawka > Moduł aby utworzyć nowy pusty moduł.

2. Skopiuj i wklej poniższy kod do modułu.

VBA: Połącz dwie kolumny w jedną z alternatywą wartości

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. naciśnij F5 i wybierz dwie kolumny, które chcesz scalić z wyświetlanym oknem dialogowym.
doc łączy dwie kolumny w jedną z naprzemienną wartością 2

4. kliknij OK, w drugim oknie dialogowym wybierz komórkę, w której ma zostać umieszczony wynik.
doc łączy dwie kolumny w jedną z naprzemienną wartością 3

5. kliknij OK. Teraz wybrane dwie kolumny zostały połączone w jedną i z alternatywnymi wartościami.


Połącz dwie kolumny w jedną z naprzemiennymi wartościami przez Kutools for Excel

Jeśli Kutools dla programu Excel zainstalowany w programie Excel, jego Transform Range narzędzie może rozwiązać to zadanie w zaledwie 3 prostych krokach.

Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:(Bezpłatne pobieranie Kutools dla programu Excel teraz!)

1. Wybierz kolumny (dwie lub więcej), które chcesz scalić, kliknij Kutools > Transform Range.
doc łączy dwie kolumny w jedną z naprzemienną wartością 4

2. w Transform Range okno dialogowe, sprawdź Range to single column opcję i kliknij Ok.
doc łączy dwie kolumny w jedną z naprzemienną wartością 5

3. Wybierz komórkę, aby umieścić wynik w wyświetlanym oknie dialogowym. Kliknij OK.
doc łączy dwie kolumny w jedną z naprzemienną wartością 6

Teraz kolumny zostały połączone w jedną, a wartości są w alternatywnej kolejności.
doc łączy dwie kolumny w jedną z naprzemienną wartością 7

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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