Ugrás a tartalomra

Hogyan illesszünk szóközt a nagybetűk elé az excelben?

Tegyük fel, hogy van egy szöveges karaktersorozata, amelyet a szavak között minden szóköz véletlenül eltávolít, így: InsertBlankRowsBetweenData, és most hozzá szeretné adni a szóközöket az egyes betűk előtt nagybetűkkel a szavak elválasztásához Üres sorok beszúrása az adatok közé. Hogyan adhatna hozzá gyorsan szóközt a nagybetűk elé, ahelyett, hogy egyesével írja be a szóközt


Helyezzen szóközt a nagybetűk elé a Felhasználó által definiált funkcióval

Sajnos nincs közvetlen módja annak, hogy szóközt adjon az Excel nagybetűi elé, de létrehozhatja a felhasználó által definiált funkciót a feladat megoldására.

1. Aktiválja a munkalapot, amely tartalmazza a szóközökhöz hozzáadni kívánt szöveges karakterláncokat.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Helyezzen szóközt a nagybetűk elé

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és írja be ezt a képletet = addspaces (A1) az adatok mellett egy üres cellába, lásd a képernyőképet:
doc-add-szóköz-nagy-1 előtt

5. Ezután húzza a kitöltő fogantyút arra a tartományra, amelyen ezt a képletet kívánja tartalmazni, így a szóközök minden nagybetű előtt be lesznek helyezve.
doc-add-szóköz-nagy-1 előtt

Könnyen eltávolíthatja a vezető / záró / extra helyeket a cellákból

Kutools az Excelhez Távolítsa el a Spaces elemet A segédprogram lehetővé teszi az Excel felhasználók számára, hogy gyorsan eltávolítsák az összes vezető helyet, a záró helyet, az extra helyeket vagy az összes helyet a kiválasztott cellákból.


hirdetés helyének eltávolítása 1

Helyezzen szóközt VBA kóddal ellátott nagybetűk elé

Itt van egy másik VBA kód, amely szívességet tehet Önnek, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Helyezzen szóközt a nagybetűk elé

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, megjelenik egy prompt doboz, amely lehetővé teszi a használni kívánt adattartomány kiválasztását.
doc-add-szóköz-nagy-1 előtt

4. Kattintson a gombra OK ennek a mezőnek a bezárásához a szóközöket egyszerre a nagybetűk elé helyezték, lásd a képernyőképet:
doc-add-szóköz-nagy-1 előtt


Szúrjon szóközt minden nagybetű elé a Kutools for Excel segítségével

Kutools az Excelhez Szöveg hozzáadása segédprogram segítségével megkerülheti a VBA makrókat, és az Excelben minden nagybetű előtt könnyen beszúrhat helyet.

Kutools az Excel számára - Tele van több mint 300 alapvető Excel-eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Letöltés most!

1. Válassza ki azt a tartományt, ahová szóközt szúr be nagybetűk elé, majd kattintson a gombra Kutools > szöveg > Szöveg hozzáadása. Lásd a képernyőképet:

2. A megnyíló Szöveg hozzáadása párbeszédpanelen írjon be egy szóközt a szöveg jelölje be a négyzetet Csak hozzáadás az opcióhoz és válassza ki a Az 1. betű nagybetű tól Csak add hozzá legördülő listát.

3. Kattintson az Ok gomb a szóköz beszúrásához minden nagybetű előtt, a következő képernyőképen:
doc adjon szóközt a nagybetű 7 elé

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

Megjegyzések: Ez a módszer a cellák elején helyet is ad, ha az első betű nagybetű. Jelentkezni lehet Kutools > szöveg > Távolítsa el a Spaces elemet az összes vezető szóköz eltávolításához a kijelölt cellákból.


Kapcsolódó cikk:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This function handles two problems that the given solution doesn't cover:
1. non-English text (with diacritical marks)
2. successive capitals that should not have spaces after them

` Private Function AddSpaces(sText As String)As String
' Inserts a space immediately before a capital letter, except when successive characters are each capitalized.
' Last Updated: 2022-07-04
'
Dim sRet As String, i As Integer, sChar As String, bPrevWasUCase As Boolean

sRet = Left(sText, 1)
For i = 2 To Len(sText)
sChar = Mid(sText, i, 1)
If sChar = UCase(sChar) And Not bPrevWasUCase Then
sRet = sRet & " " & sChar
bPrevWasUCase = True
Else
sRet = sRet & sChar
bPrevWasUCase = False
End If
Next i

AddSpaces= sRet
End Function`
This comment was minimized by the moderator on the site
Hello friend,

Thanks for your share. I tried your VBA code, but it doesn't work. Our VBA code can handle the non-english text. I have test the french text and spaces are successfully inserted before the capital letters.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hello

First thanks a lot for your code example and the explanations. It works very well for my case.

I just have 1 Problem, some of the Strings contain words like URL, which should not be seperated.
Do you see a way to except for example "URL" from adding spaces?

Would be very nice if you can help. I tried already a while, but i dont know how to solve this..


Best regards
luca
This comment was minimized by the moderator on the site
hi wanna ask you if you found solution for you case, if you found solution please provide me with that
This comment was minimized by the moderator on the site
Hi,
Thanks for your comment and advice. I have sent your suggestion to the Kutools project team, I’m sure they’ll improve it soon.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
Hi there, your code works fantastic. Do you know how to adapt code 20140723 to work on multiple sheets? I would like to add spaces between capital letters throughout the entire workbook. Thanks!
This comment was minimized by the moderator on the site
i need a help in excel i want to find Uppercase in a cell. for example: Sagar Paul MBA 16:04 i want MBA to be highlighted
This comment was minimized by the moderator on the site
I hope you can see it and give it a trial. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Each xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1).Text If Asc(xChar) > 64 And Asc(xChar) < 91 Then xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations