Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om teks in aparte kolomme met hoofletter in Excel te verdeel?

doc verdeel deur kapitaal 1

Veronderstel, jy het 'n reeks data wat jy die selinhoud in afsonderlike kolomme met die hoofletter wil verdeel soos die volgende skermkiekie getoon het. Het jy enige goeie idees om hierdie probleem in Excel op te los?

Verdeel teks in aparte kolomme per hoofletter met formules

Verdeel teks in aparte kolomme met hoofletter met VBA-kode

Verdeel teks in aparte kolomme deur hoofletter met Kutools vir Excel



As daar slegs twee woorde in jou selle is, help die volgende formules om hierdie werk te voltooi. Doen asseblief as volg:

1. Voer hierdie skikking formule in: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 is die sel wat jy met hoofletter wil verdeel) in 'n leë sel wat aan jou data grens en dan druk Ctrl + Shift + Enter sleutels saam om die eerste woord te kry, sien skermkiekie:

doc verdeel deur kapitaal 2

2. Kies dan C2, en sleep die vulhandvatsel na die selle wat jy hierdie formule wil toepas. Alle eerste woorde van die reeks selle is dadelik onttrek, sien skermkiekie:

doc verdeel deur kapitaal 3

3. Gaan voort met 'n ander formule: = VERVANG (A2,1, LEN (C2), "") (A2 is die sel wat jy wil verdeel, en C2 is die sel die eerste woord wat jy teruggekeer het) in sel D2, en druk Tik sleutel om die tweede woord te kry, sien skermkiekie:

doc verdeel deur kapitaal 4

4. Kies sel D2, sleep die vulhendel na die selle om die tweede woord te kry, en die selinhoud van die reeks is in die hoofletter in twee kolomme verdeel, sien skermkiekie:

doc verdeel deur kapitaal 5


Die bostaande formules word slegs toegepas op die selwaarde wat twee woorde bevat. As daar veelvoudige woorde in 'n sel is wat verdeel moet word, kan jy spasies voor die hoofletters voeg en dan die teks na kolomme toepas om die selinhoud in te verdeel in skei kolomme deur die ruimte.

Eerstens, pas VBA-kode toe om spasies voor die hoofletter by te voeg om die woorde te skei.

1. Hou die ALT + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

2. Kliek Plaas > module, en plak die volgende kode in die module Venster.

VBA-kode: Voeg spasies voor elke hoofletter in 'n sel in

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. Stoor en sluit hierdie kode, gaan terug na die werkblad, vul asseblief hierdie formule in: = Splitwords (A2) in 'n leë sel langs jou data, sien skermkiekie:

doc verdeel deur kapitaal 6

4. Sleep dan die vulhandvatsel na die selle wat jy wil hê, hierdie formule toe en die spasies is voor elke hoofletter ingevoeg om die selinhoud te skei, sien skermkiekie:

doc verdeel deur kapitaal 7

5. En dan moet jy tesisse formule selle kopieer en plak as waardes om die formules in 'n ander plek of die oorspronklike reeks te verwyder.

doc verdeel deur kapitaal 8

Tweedens, pas die teks-kolom-funksie toe om die selinhoud in aparte kolomme deur die spasie te verdeel.

6. Kies die selwaardes wat u spasies ingevoeg het en klik data > Teks na kolomme, in Step1 van die Skakel teks na kolom Wizard, kies afgebaken opsie, sien skermkiekie:

doc verdeel deur kapitaal 9

7. Klik dan volgende Knoppie, in Stap2 van die towenaar, tjek ruimte opsie onder die delimiters afdeling, sien skermkiekie:

doc verdeel deur kapitaal 10

8. Gaan voort om te klik volgende knoppie, in Stap3 van die towenaar, kies algemene opsie onder die Kolom data formaat, en kies dan 'n sel waar jy die gesplete waardes wil plaas deur te klik doc verdeel deur kapitaal 12 knoppie, sien skermkiekie:

doc verdeel deur kapitaal 11

9. Eindelik, klik Voltooi Knoppie, die selinhoud is in verskeie kolomme verdeel as die volgende skermkiekie vertoon word:

doc verdeel deur kapitaal 13


As jy ' Kutools for Excel, kombineer sy Voeg teks by en Gesplete selle funksies, jy kan maklik en gemaklik met hierdie taak handel, doen as volg:

Kutools for Excel : Met meer as 300 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer.

1. Kies die oorspronklike data wat jy wil verdeel.

2. Klik dan Kutools > Teks > Voeg teks by, sien skermkiekie:

doc verdeel deur kapitaal 14

3. in die Voeg teks by dialoogkassie, tik asseblief die spasiebalk een keer of enige ander skeidingsteken wat u nodig het in die Teks boks, en kies dan 1 st letter is hoofletter van die Voeg net by afdeling, sien skermkiekie:

doc verdeel deur kapitaal 15

4. Klik dan Ok knoppie, en spasies is voor elke hoofletter bygevoeg, sien skermkiekie:

doc verdeel deur kapitaal 16

5. En dan kan jy die Gesplete selle nut van Kutools for Excel Om die selwaardes deur die spasie te verdeel, die data reeks te kies en dan te klik Kutools > Teks > Gesplete selle, sien skermkiekie:

doc verdeel deur kapitaal 17

6. in die Gesplete selle dialoogkassie, kies Verdeel na Kolomme onder die Tipe afdeling, en tjek ruimte of ander afbakeninge wat jy in Stap 3 bygevoeg het, sien skermkiekie:

doc verdeel deur kapitaal 18 18

7. Klik dan Ok, en 'n vinnige boks is uitgekom om te herinner dat jy 'n sel kies om die gesplete data te plaas, sien skermkiekie:

doc verdeel deur kapitaal 19

8. Eindelik, klik OK knoppie, en jy sal die resultaat kry wat jy benodig, sien skermkiekie:

doc verdeel deur kapitaal 20

Laai en probeer gratis Kutools vir Excel nou!


Kutools for Excel: met meer as 200 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer. Laai en gratis toets nou!


Aanbevole Produktiviteitsgereedskap vir Excel

kte oortjie 201905

Kutools vir Excel help u om altyd werk voor die tyd te voltooi, en staan ​​uit die menigte

  • Meer as 300 kragtige gevorderde funksies, ontwerp vir 1500 werk scenario's, verhoog produktiwiteit deur 70%, gee jou meer tyd om te sorg vir familie en geniet die lewe.
  • Moet nie meer memorisering van formules en VBA kodes hê nie, gee jou brein van nou af 'n rusplek.
  • Word 'n Excel-deskundige in 3-minute, komplekse en herhaalde bewerkings kan in sekondes gedoen word,
  • Verminder duisende sleutelbord- en muisbedrywighede elke dag, sê totsiens aan beroepsiektes nou.
  • 110,000 hoogs effektiewe mense en 300 + wêreldbekende maatskappye se keuse.
  • 60-dag volle funksies gratis toets. 60-dag geld terug waarborg. 2 jaar gratis opgradering en ondersteuning.

Bring Tabbed Browsing en redigering na Microsoft Office, veel meer kragtig as die blaaier se tabbladen

  • Office Tab is ontwerp vir Word, Excel, PowerPoint en ander Office toepassings: Publisher, Access, Visio en Project.
  • Maak en skep verskeie dokumente in nuwe oortjies van dieselfde venster, eerder as in nuwe vensters.
  • Verhoog jou produktiwiteit met 50% en verminder elke dag honderde muisklikke vir jou!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    guest · 10 months ago
    This doesn't work for two of the same capital letters
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello,
      If the two words are same words, please change the first array formula to the follows:
      =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

      Please remember to press Ctrl + Shift + Enter keys together.

      Hope it can help you!
  • To post as a guest, your comment is unpublished.
    sdf · 2 years ago
    Thanks for the content it really worked
  • To post as a guest, your comment is unpublished.
    Tom · 2 years ago
    Your formula fail if name is like this:

    JhonJhon
    MarkMark