Jak rozdělit text do samostatných sloupců podle velkých písmen v aplikaci Excel?

Předpokládejme, že máte řadu dat, která chcete rozdělit obsah buňky do samostatných sloupců velkým písmenem, jak ukazuje následující snímek obrazovky, máte nějaké dobré nápady k vyřešení tohoto problému v aplikaci Excel?

Rozdělte text do samostatných sloupců podle velkých písmen pomocí vzorců

Rozdělte text do samostatných sloupců velkým písmenem s kódem VBA

Rozdělte text do samostatných sloupců velkým písmenem pomocí programu Kutools pro Excel

Rozdělte text do samostatných sloupců podle velkých písmen pomocí vzorců

Pokud jsou ve vašich buňkách pouze dvě slova, následující vzorce vám pomohou dokončit tuto úlohu. Postupujte prosím následovně:

1. Zadejte tento vzorec pole: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 je buňka, kterou chcete rozdělit na velké písmeno) do prázdné buňky sousedící s vašimi daty, a poté stiskněte Ctrl + Shift + Enter klávesy k získání prvního slova, viz screenshot:

2. Pak vyberte C2 a přetáhněte popisovač výplně dolů do buněk, na které chcete použít tento vzorec, všechna první slova buněk rozsahu byla extrahována najednou, viz screenshot:

3. Pokračujte zadáním jiného vzorce: = REPLACE (A2,1, LEN (C2), "") (A2 je buňka, kterou chcete rozdělit, a C2 je buňka obsahuje první slovo, které jste vrátili) do buňky D2 a stiskněte vstoupit klíč k získání druhého slova, viz screenshot:

4. Vyberte buňku D2, přetáhněte popisovač výplně dolů do buněk, abyste získali druhé slovo, a obsah buňky rozsahu byl rozdělen na dva sloupce velkým písmenem, viz screenshot:

Rozdělte text do samostatných sloupců velkým písmenem s kódem VBA

Výše uvedené vzorce se použijí pouze na hodnotu buňky, která obsahuje dvě slova. Pokud je v buňce třeba rozdělit více slov, můžete před velká písmena přidat mezery a poté použít text na sloupce a rozdělit obsah buňky na oddělené sloupce mezerou.

Nejprve použijte kód VBA a přidejte mezery před velkým písmenem k oddělení slov.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vložte mezery před každé velké písmeno v buňce

Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
    Dim I As Integer
    SplitWords = Left(Str, 1)
    For I = 2 To Len(Trim(Str))
        If (Asc(Mid(Str, I, 1)) > 64) And _
           (Asc(Mid(Str, I, 1)) < 91) And _
           (Mid(Str, I - 1, 1) <> " ") Then _
            SplitWords = SplitWords & " "
        SplitWords = SplitWords & Mid(Str, I, 1)
    Next
End Function

3. Uložte a zavřete tento kód, vraťte se do listu, zadejte tento vzorec: = splitwords (A2) do prázdné buňky sousedící s vašimi daty, viz screenshot:

4. Poté přetáhněte popisovač výplně dolů do buněk, které chcete použít tento vzorec, a mezery byly vloženy před každé velké písmeno k oddělení obsahu buňky, viz screenshot:

5. A pak byste měli tyto buňky vzorců zkopírovat a vložit jako hodnoty, abyste vzorce odstranili na jiném místě nebo v původním rozsahu.

Za druhé, použijte funkci Text na sloupec a rozdělte obsah buňky do samostatných sloupců podle mezery.

6. Vyberte hodnoty buněk, do kterých jste vložili mezery, a klikněte Data > Text do sloupců, v kroku 1 Převést Průvodce textu na sloupcevyberte Oddělené možnost, viz screenshot:

7. Pak klikněte na tlačítko další tlačítko, v kroku 2 průvodce zaškrtněte space možnost podle Oddělovače sekce, viz screenshot:

8. Pokračujte kliknutím další tlačítko, v kroku 3 průvodce vyberte obecně možnost podle Formát dat sloupcea poté vyberte buňku, do které chcete vložit hodnoty rozdělení, kliknutím tlačítko, viz screenshot:

9. Konečně klikněte na tlačítko úprava Tlačítko, obsah buňky byl rozdělen do několika sloupců, jak ukazuje následující snímek obrazovky:

Rozdělte text do samostatných sloupců velkým písmenem pomocí programu Kutools pro Excel

Pokud máte Kutools pro Excel, kombinující jeho doplnit text a Rozdělit buňky funkce, můžete se s tímto úkolem vypořádat snadno a pohodlně, postupujte takto:

1. Vyberte původní data, která chcete rozdělit.

2. Pak klikněte na tlačítko Kutools > Text > doplnit text, viz screenshot:

3. V doplnit text V dialogovém okně zadejte mezerník jednou nebo jakýkoli jiný oddělovač, který potřebujete, do Text a poté vyberte 1. písmeno je velké z Pouze přidat do sekce, viz screenshot:

4. Pak klikněte na tlačítko Ok tlačítko a před každé velké písmeno byly přidány mezery, viz screenshot:

5. A pak můžete použít Rozdělit buňky užitečnost Kutools pro Excel rozdělit hodnoty buněk na mezeru, ponechat vybraný rozsah dat a poté kliknout Kutools > Sloučit a rozdělit > Rozdělit buňky, viz screenshot:

6. V Rozdělit buňky dialogové okno vyberte Rozdělit na sloupce pod Typ sekci a zkontrolujte space nebo jiné oddělovače, které jste přidali v kroku 3, viz screenshot:

7. Pak klikněte na tlačítko Oka vyskočí výzva, která vám připomene, že chcete vybrat rozdělená data, vyberte buňku, viz screenshot:

8. Konečně klikněte na tlačítko OK tlačítko a získáte požadovaný výsledek, viz screenshot:

Stáhněte si zdarma zkušební verzi Kutools pro Excel!

Ukázka: Rozdělte text do samostatných sloupců podle velkých písmen pomocí programu Kutools pro Excel