Ugrás a tartalomra

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

Szerző: Xiaoyang Utolsó módosítás: 2025-04-07

Az adatok formázásának kezelése az Excelben kulcsfontosságú szempont annak biztosításában, hogy a táblázatok világosak és professzionálisak legyenek. Az egyik gyakori formázási igény a szóközök beszúrása a nagybetűk elé a szöveges karakterláncokban, ami gyakran szükséges összefűzött vagy nem megfelelően formázott adatok kezelésekor. Ez az útmutató számos hatékony módszert kínál ennek elérésére.


Szóközök beszúrása minden nagybetű elé képletekkel (Excel 2019 és újabb verziók)

Az Excel képletek rugalmas módot biztosítanak szóközök beszúrására a nagybetűk elé. Ez a módszer ideális azoknak a felhasználóknak, akik a nem programozott megközelítést részesítik előnyben.

Másolja és illessze be a következő képletet egy üres cellába, majd nyomja meg az "Enter" billentyűt (Excel 365 vagy 2021), hogy megkapja az első eredményt. (Excel 2019 használata esetén nyomja meg a "Ctrl" + "Shift" + "Enter" gombot, hogy tömbképletként alkalmazza)

=TRIM(LEFT(A2,1) & TEXTJOIN("", TRUE, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))>=65, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))<=90, " "&MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1)), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))))

szóközök beszúrása a nagybetűk elé képlettel

Ennek a képletnek a magyarázata:
  • "LEFT(A2,1)": Lekéri a karakterlánc első karakterét, ahogy van.
  • "INDIRECT("2:" & LEN(A2))": Számtartományt hoz létre a 2. karaktertől az utolsó karakterig.
  • "MID(A2, ROW(...), 1)": A második karaktertől kezdve egyesével kivonja az egyes karaktereket.
  • "CODE(...)": Ellenőrzi a karakter ASCII-értékét annak megállapítására, hogy nagybetű-e (65 és 90 között).
  • "TEXTJOIN("", TRUE, ...)": A karaktereket egyetlen karakterláncba egyesíti, szóközt szúrva be a nagybetűk elé.
  • "TRIM(...)": Eltávolítja a felesleges szóközöket a kapott karakterlánc elején vagy végén.

Minden nagybetű elé szóközt kell beszúrni Kutools for Excel

"Kutools for Excel„gyors és egyszerű megoldást kínál arra, hogy minden nagybetű elé szóközöket illesszen be az adataiban. Az intuitív „Szöveg hozzáadása” funkcióval ezt a feladatot mindössze néhány kattintással automatizálhatja – nincsenek szükség bonyolult képletekre vagy kódolásra!

Kutools for Excel több mint 300 fejlett funkciót kínál az összetett feladatok egyszerűsítésére, fokozva a kreativitást és a hatékonyságot. Itegarate AI képességekkel, Kutools precízen automatizálja a feladatokat, így az adatkezelés egyszerű. Részletes információk a következőről: Kutools for Excel...         Ingyenes próbaverzió...

1Jelölje ki azt a tartományt, ahová a nagybetűk elé szóközt szeretne beszúrni, majd kattintson a "Kutools" > "Szöveg" > "Szöveg hozzáadása". Lásd a képernyőképet:
kattintson a kutools szövegének hozzáadása lehetőségre

2. A megnyíló "Szöveg hozzáadása" párbeszédpanelen írjon be egy szóközt a "Szöveg" mezőbe, jelölje be a "Csak hozzáadás" lehetőséget, és válassza a "Nagybetűk előtt" lehetőséget a legördülő listából.
adja meg a beállításokat a párbeszédpanelen

3. Kattintson az "OK" gombra, hogy szóközt szúrjon be minden nagybetű elé, ahogy az alábbi képernyőképen látható:
A Kutools minden nagybetű elé szóközt ír be


Minden nagybetű elé szóközt szúrjon be a felhasználó által definiált funkcióval

A haladó felhasználók számára, akiknek nagyobb rugalmasságra van szükségük, létrehozhat egy felhasználói függvényt (UDF), amely szóközt szúr be a nagybetűk elé.

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 az "ALT" + "F11" billentyűket a "Microsoft Visual Basic for Applications" ablak megnyitásához.

3. Kattintson a "Beszúrás" > "Modul" elemre, és illessze be a következő kódot a "Modul" ablakba.

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

Function AddSpaces(pValue As String) As String
'Updateby Extendoffice
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 és zárja be ezt a kódot, térjen vissza a munkalapra, és írja be az alábbi képletet egy üres cellába az adatok mellett. Ezután húzza le a képletet, hogy kitöltse más cellákba, és minden nagybetű elé beszúrja a szóközöket.

=addspaces(A2)
Szúrjon be szóközt minden nagybetű elé a felhasználó által meghatározott függvény szerint

Szúrjon szóközt minden nagybetű elé VBA-kóddal

Ebben a részben bemutatjuk, hogyan lehet VBA-kóddal szóközt szúrni minden nagybetű elé az Excelben. Akár kezdő, akár haladó felhasználó, ez az útmutató olyan eszközöket és ismereteket kínál, amelyekkel hatékonyan megbirkózik ezzel a feladattal.

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

2. Kattintson a "Beszúrás" > "Modul" elemre, és illessze be a következő kódot a "Modul" ablakba.

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

Sub AddSpacesRange()
'Updateby Extendoffice
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 az "F5" billentyűt a kód végrehajtásához, ekkor egy prompt ablak jelenik meg, amelyben kiválaszthatja a használni kívánt adattartományt.
vba kódot az adattartomány kiválasztásához

4. Ezután kattintson az "OK" gombra a prompt doboz bezárásához, a szóközök egyszerre kerültek beszúrásra a nagybetűk elé, lásd a képernyőképet:
szúrjon be szóközt a nagybetűk elé vba kóddal

A szóközök beszúrása minden nagybetű elé az Excelben többféle módszerrel is megvalósítható, amelyek mindegyikének megvannak a maga előnyei. Az ebben az útmutatóban felvázolt lépések és bevált gyakorlatok követésével optimalizálhatja munkafolyamatát, és könnyedén és hatékonyan kezelheti ezt a feladatot. Ha további Excel-tippeket és trükköket szeretne felfedezni, weboldalunk több ezer oktatóanyagot kínál.


Kapcsolódó cikk:

Hogyan adhat szóközt vessző után az Excelben?


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

🤖 Kutools AI segéd: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  Indítsunk Kutools Funkció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
Felhasználás Kutools a kívánt nyelven – támogatja az angol, spanyol, német, francia, kínai és több mint 40 másik nyelvet!

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


Office Tab Lapos 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!