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?

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 Excel

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.

4. kliknij OK, w drugim oknie dialogowym wybierz komórkę, w której ma zostać umieszczony wynik.

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 masz 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.

2. w Transform Range okno dialogowe, sprawdź Range to single column opcję i kliknij Ok.

3. Wybierz komórkę, aby umieścić wynik w wyświetlanym oknie dialogowym. Kliknij OK.

Teraz kolumny zostały połączone w jedną, a wartości są w alternatywnej kolejności.

  Zakres transpozycji

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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!

Czytaj więcej... Darmowe pobieranie... Zakup...