Hogyan illesszünk be / adjunk helyet minden x karakter után a cellákban?
Ha több szöveges karakterlánc van a munkalap listáján, akkor most minden 3 vagy x karakter után helyet kell beszúrni a cellákban, az alábbi képernyőkép szerint. Hogyan tudná gyorsan és egyszerűen megoldani ezt a problémát az Excel programban?
|
Helyezzen be / tegyen helyet minden x karakter után a VBA kóddal rendelkező cellákban Helyezzen / tegyen helyet minden x karakter után a cellákban a Kutools for Excel alkalmazással |
Helyezzen be / tegyen helyet minden x karakter után a VBA kóddal rendelkező cellákban
A következő VBA-kódot alkalmazva gyorsan beillesztheti a helyet minden n karakter után egyszerre több cellára, 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. Ezután kattintson betétlap > Modulok, és illessze be a következő kódot a Modulok ablak.
VBA kód: Helyezzen szóközt minden x karakter után:
Sub addspace()
'updateby Extendoffice
Dim i As Long
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
Dim xStr As String
Dim xUpdate As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xStr = xCell.Text
xTxt = ""
For i = 1 To Len(xStr) Step 4
If xTxt = "" Then
xTxt = Mid(xStr, i, 4)
Else
xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
End If
Next
xCell = xTxt
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a prompt mezőben válassza ki azokat a cellákat, amelyekbe helyet kíván beszúrni, lásd a képernyőképet:
4. Kattintson a gombra OK gombot, és a szóközök négy karakter után kerültek be a cellatartalomba, lásd a képernyőképeket:
![]() |
![]() |
![]() |
Megjegyzések: A fenti kódban megváltoztathatja a számot 4 másik számra a szóköz beszúrásához. Ebben a szabályban megváltoztathatja az elválasztó teret másik határolóra is xTxt = Vágás (xTxt) & "" & Közép (xStr, i, 4) a fenti kód.
Helyezzen / tegyen helyet minden x karakter után a cellákban a Kutools for Excel alkalmazással
Kutools az Excel számára'S Szöveg hozzáadása funkció szintén segítséget nyújt a probléma gyors és egyszerű megoldásában.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket :( Ingyenes letöltés Kutools for Excel most! )
1. Jelölje ki azokat a szöveges karakterláncokat, amelyekbe szóközt kíván beszúrni.
2. Ezután kattintson Kutools > szöveg > Szöveg hozzáadása, lásd a képernyőképet:
3. Az Szöveg hozzáadása párbeszédpanelen nyomja meg egyszer a szóközt a szöveg négyzetet, és jelölje be a Adja meg lehetőség a pozíció, majd írja be azokat a pozíciókat, amelyekbe be szeretné helyezni a helyet, lásd a képernyőképet:
4. Kattintson a gombra Ok or alkalmaz gombra kattintva azt az eredményt kapja, hogy a szóközöket beillesztették minden négy karakter után, amire szüksége volt.
tippek: A Specify szövegmezőben a pozíciók számát vesszővel kell elválasztani.
Ingyenes letöltés Kutools for Excel most!
Kapcsolódó cikk:
Hogyan adhatunk / illeszthetünk be bizonyos karaktereket x karakterenként a cellákba?
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.

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!
