Jak układać kolumny od lewej do prawej w jednej kolumnie w programie Excel?
Zakładając, że istnieje wiele kolumn, zadaniem jest ułożenie kolumn od lewej do prawej w jedną kolumnę, jak pokazano na zrzucie ekranu. Oprócz ręcznego przesuwania kolumn jedna po drugiej, czy są jakieś sztuczki, aby rozwiązać ten problem w programie Excel?
Układaj kolumny od lewej do prawej do jednej kolumny za pomocą VBA
Układaj kolumny od lewej do prawej do jednej kolumny za pomocą Kutools for Excel
Układaj kolumny od lewej do prawej do jednej kolumny za pomocą VBA
W programie Excel nie ma wbudowanej funkcji, która może obsłużyć to zadanie, ale kod VBA może ci pomóc.
1. naciśnij Alt + F11 klucze, a następnie w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł aby utworzyć nowy pusty moduł.
2. Skopiuj i wklej poniższy kod do pliku Moduł.
VBA: Ustaw kolumny w jeden
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select 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 xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. naciśnij F5 Aby uruchomić kod, pojawi się okno dialogowe, w którym możesz wybrać kolumny, które chcesz ułożyć w jedną.
4. kliknij OKwybierz komórkę, aby umieścić wynik.
5. kliknij OK skończyć. Teraz wybrane kolumny zostały ułożone w jedną kolumnę.
Układaj kolumny od lewej do prawej do jednej kolumny za pomocą Kutools for Excel
Jeśli Kutools dla programu Excel zainstalowany w programie Excel, możesz użyć Transform Range narzędzie do obsługi tej pracy.
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, które chcesz ułożyć, kliknij Kutools > łodzie > Transform Range.
2. w Transform Range okno dialogowe, sprawdź Range to single row zaznacz pole wyboru, kliknij Ok.
3. W wyświetlanym oknie dialogowym wybierz komórkę, w której ma zostać umieszczony wynik, kliknij OK.
Teraz kolumny zostały przekształcone w jeden wiersz.
4. Wybierz pojedynczy wiersz, naciśnij Ctrl + C aby go skopiować i wybierz inną komórkę, w której zostanie umieszczona kolumna stosu, kliknij prawym przyciskiem myszy, aby wybrać Transpose(T) w menu kontekstowym.
Teraz pojedynczy wiersz został przeniesiony do kolumny stosu.
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!