Hogyan illesszünk szóközt a nagybetűk elé az excelben?
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.

Az Excelben minden nagybetű elé szóközt szúrjon be
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))))
- "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!
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:
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.
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ó:
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 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.
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:
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
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!