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

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


strzałka niebieski prawy bąbelek 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

dokument podzielony według przypadku 1

3. naciśnij F5 i pojawi się okno dialogowe przypominające o wyborze tekstów do podzielenia. Zobacz zrzut ekranu:
dokument podzielony według przypadku 2

4. kliknij OK, a wybrane teksty zostały podzielone na dwie kolumny, z których jedna zawiera małe litery, a druga duże.
dokument podzielony według przypadku 3


strzałka niebieski prawy bąbelek 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.

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:
dokument podzielony według przypadku 4

2. w Podział komórki zaznacz żądany typ podziału w Typ i przejdź do konkretnego separatora, na podstawie którego chcesz podzielić, w pliku Podziel według Sekcja. Zobacz zrzut ekranu:
dokument podzielony według przypadku 5

3. kliknij Ok, pojawia się okno dialogowe przypominające o wybraniu komórki do umieszczenia podzielonej zawartości. Zobacz zrzut ekranu:
dokument podzielony według przypadku 6

4. Po wybraniu kliknij OK, a wybrana komórka została podzielona na wiersze na podstawie miejsca. Zobacz zrzut ekranu:
dokument podzielony według przypadku 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 (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

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