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

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

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.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (1)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Zadziałało! Dziękuję Ci!!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL