Jak szybko podzielić ciąg tekstowy według wielkości liter w programie Excel?
W programie Excel zwykle dzielimy tekst według stałej szerokości lub separatora za pomocą funkcji Tekst na kolumny, ale czy kiedykolwiek próbowałeś podzielić tekst na wielkie i małe litery? Na przykład masz listę danych i musisz podzielić je na dwie kolumny w zależności od przypadku: jedna kolumna zawiera małe litery, a druga zawiera wielkie litery, jak pokazano na zrzucie ekranu. Funkcja Text to Columns nie obsługuje tej operacji, jednak mogę wprowadzić sztuczki, aby szybko podzielić ciąg tekstowy według wielkości liter w programie Excel.
Podziel tekst według wielkości liter za pomocą VBA
Podziel tekst na wiersze / kolumny za pomocą separatora za pomocą Kutools for Excel
Podziel tekst według wielkości liter za pomocą VBA
W programie Excel jest tylko kod makra do szybkiego dzielenia ciągów na podstawie małych i wielkich liter.
1. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod w puste miejsce Moduł skrypt.
VBA: Podziel ciąg według wielkości liter.
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3. naciśnij F5 i pojawi się okno dialogowe przypominające o wyborze tekstów do podzielenia. Zobacz zrzut ekranu:
4. kliknij OK, a wybrane teksty zostały podzielone na dwie kolumny, z których jedna zawiera małe litery, a druga duże.
Podziel tekst na wiersze / kolumny za pomocą separatora za pomocą Kutools for Excel
W wielu przypadkach możesz chcieć podzielić komórkę na wiele wierszy lub kolumn na podstawie określonego znaku. W programie Excel wbudowana funkcja Tekst na kolumny może pomóc tylko w bezpośredniej konwersji komórki na kolumny, ale nie działa w konwersji wierszy. Jednak z Kutools dla programu Excel - poręczne i przydatne narzędzie, które możesz zastosować Podział komórki narzędzie do szybkiego dzielenia ciągu na wiersze lub kolumny na podstawie separatora lub stałej szerokości.
| Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Wybierz komórkę, którą chcesz podzielić, i kliknij Kutools > Połącz i podziel > Podział komórki. Zobacz zrzut ekranu:
2. w Podział komórki zaznacz żądany typ podziału w Rodzaj Nieruchomości i przejdź do konkretnego separatora, na podstawie którego chcesz podzielić, w pliku Podziel według Sekcja. Zobacz zrzut ekranu:
3. kliknij Ok, pojawia się okno dialogowe przypominające o wybraniu komórki do umieszczenia podzielonej zawartości. Zobacz zrzut ekranu:
4. Po wybraniu kliknij OK, a wybrana komórka została podzielona na wiersze na podstawie miejsca. Zobacz zrzut ekranu:
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!
