Note: The other languages of the website are Google-translated. Back to English

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 for Excel's 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


Helyezzen szóközt minden nagybetű elé az Kutools for Excel alkalmazással

Kutools for Excel's 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 - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Ingyenes próba 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öbb mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (9)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Segítségre van szükségem az Excelben, meg akarom találni a nagybetűket egy cellában. például: Sagar Paul MBA 16:04 Szeretném, ha kiemelnék az MBA-t
A weboldal moderátora ezt a megjegyzést minimalizálta
Remélem, láthatod és kipróbálod. Alteszt() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection minden xCell In Rg For i = 1 To xCell.Karakterek száma xChar = xCell.Characters(i, 1 ).Szöveg Ha Asc(xChar) > 64 És Asc(xChar) < 91, akkor xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözlöm, a kódod fantasztikusan működik. Tudja, hogyan kell adaptálni a 20140723 kódot több lapon való működéshez? Szeretnék szóközt hozzáadni a nagybetűk közé az egész munkafüzetben. Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló

Először is nagyon köszönöm a kódpéldát és a magyarázatokat. Az én esetemben nagyon jól működik.

Csak van egy problémám, néhány karakterlánc olyan szavakat tartalmaz, mint az URL, amelyeket nem szabad elválasztani.
Lát-e módot arra, hogy például az „URL”-t eltekintse a szóközök hozzáadásától?

Nagyon jó lenne, ha tudnál segíteni. Már egy ideje próbálkoztam, de nem tudom, hogyan oldjam meg.


Üdvözlettel:
luca
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Köszönöm észrevételét és tanácsát. Javaslatát elküldtem a Kutools projektcsapatnak, biztos vagyok benne, hogy hamarosan javítani fogják.
A weboldal moderátora ezt a megjegyzést minimalizálta
Talált megoldást?
A weboldal moderátora ezt a megjegyzést minimalizálta
szia, szeretném megkérdezni, hogy találtál-e megoldást az esetedre, ha találtál megoldást, kérlek jelezd nekem
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a funkció két olyan problémát kezel, amelyekre az adott megoldás nem terjed ki:
1. nem angol szöveg (diakritikus jelekkel)
2. egymást követő nagybetűk, amelyek után ne legyen szóköz

` Privát függvény AddSpaces(sText As String)As String
' Szóközt szúr be közvetlenül a nagybetű elé, kivéve, ha az egymást követő karakterek mindegyike nagybetűs.
Utolsó frissítés: 2022-07-04
'
Dim sRet As String, i As Integer, sChar As String, bPrevWasUCase As Boolean

sRet = Bal(szText, 1)
Ha i = 2 Len (szöveg)
sChar = Közép (szöveg, i, 1)
Ha sChar = UCase(sChar) És nem bPrevWasUCase Akkor
sRet = sRet & " " & sChar
bPrevWasUCase = Igaz
Más
sRet = sRet & sChar
bPrevWasUCase = Hamis
Ha véget
Következő i

AddSpaces= sRet
Funkció befejezése".
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló barát,

Köszönjük a megosztást. Kipróbáltam a VBA kódot, de nem működik. A VBA kódunk képes kezelni a nem angol szöveget. Kipróbáltam a francia szöveget, és a szóközök sikeresen beilleszthetők a nagybetűk elé.

Tisztelettel,
Mandy
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi