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

• Képlettel (Excel 2019 és újabb verziók)
• A Kutools for Excel
• Felhasználó által meghatározott funkcióval
• VBA kóddal

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))))

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?