Jak podzielić długą kolumnę na wiele kolumn w programie Excel?
Podziel długą kolumnę na wiele kolumn za pomocą VBA
Podziel długą kolumnę na wiele kolumn za pomocą Kutools for Excel
Podziel długą kolumnę na wiele kolumn za pomocą VBA
1. naciśnij Alt + F11 klucze razem, aby otworzyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł i skopiuj następujący kod VBA do wyskakującego okna.
VBA: Podziel długą kolumnę na wiele kolumn.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. kliknij run lub naciśnij F5 aby uruchomić VBA i pojawiło się okno dialogowe wyboru listy danych, a następnie kliknij OK aby przejść do określenia liczby potrzebnych wierszy w jednej kolumnie w następnym oknie dialogowym, a następnie kliknij OK i wybierz komórkę, aby wyświetlić wynik. Zobacz zrzuty ekranu:
4. kliknij OK, możesz zobaczyć, że długa kolumna jest podzielona na wiele kolumn, a każda kolumna ma 15 komórek.
Podziel długą kolumnę na wiele kolumn za pomocą Kutools for Excel
Może niektórzy z Was nie lubią używać kodu VBA, na szczęście można skorzystać z Zakres transformacji użyteczność Kutools dla programu Excel aby szybko i łatwo przekonwertować długą kolumnę na stałą liczbę kolumn.
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 dane kolumny, które chcesz podzielić, a następnie kliknij Kutools > łodzie > Zakres transformacji. Zobacz zrzut ekranu:
2. W wyskakującym oknie dialogowym zaznacz Pojedyncza kolumna do zakresu opcję, a następnie sprawdź Stała wartość opcję i wpisz liczbę potrzebnych kolumn w polu tekstowym. Zobacz zrzut ekranu:
3. kliknij Ok i wybierz pojedynczą komórkę, aby wyświetlić podzielone dane. Zobacz zrzut ekranu:
4. kliknij OK aby zakończyć operacje. Teraz dane z długiej kolumny zostały podzielone na trzy kolumny.
Czy to łatwiejsze niż kod VBA? Z TZakres przekształcenia narzędzie, możesz przekonwertować wiersz na zakres, zakres na wiersz lub jedną kolumnę.
Transponuj pojedynczą kolumnę / wiersz do zakresu lub odwrotnie
Szybko podziel jedną komórkę na kolumny lub wiersze na podstawie separatora
|
W programie Excel dzielenie komórki na kolumny jest uciążliwe dzięki krok po kroku Kreatorowi. Ale z Kutools dla programu Excel's Podział komórki narzędzie, możesz: 1, przekonwertować jedną komórkę na kolumny lub wiersze na podstawie separatora; 2, zamień ciąg na tekst i liczbę; 3, konwertuj ciąg na podstawie określonej szerokości za pomocą kliknięć. Kliknij, aby uzyskać pełny, 30-dniowy bezpłatny okres próbny! |
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do Excela, możesz wypróbować bez ograniczeń w 30 dniach. |
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!