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 Kutools dla programu Excel zainstalowany w programie Excel, jego Transform Range narzędzie może rozwiązać to zadanie w zaledwie 3 prostych krokach.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
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
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...
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!