Kako dodati / vstaviti določen znak vsakih x znakov v celice?
Recimo, da imam seznam besedilnih nizov, za katere želim vstaviti pomišljaje ali katere koli druge ločila po vsakih štirih znakih v celice, da dobim naslednji rezultat zaslona. Za vstavljanje določenega znaka je preveč celic, ali obstajajo hitri načini za vstavljanje pomišljajev na vsake štiri znake v Excelu?
Vsakih x znakov vstavite določen znak v celico s kodo VBA
Vsake x znake vstavite v celico s Kutools za Excel
Vsakih x znakov vstavite določen znak v celico s kodo VBA
Za vstavljanje določenega znaka za vsakimi štirimi znaki v celice lahko uporabite naslednjo kodo VBA, naredite naslednje:
1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Vstavite določen znak vsakih x znakov v celico
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo, da izberete obseg podatkov, v katerega želite vstaviti določen znak v besedilne nize, glejte sliko zaslona:
4. in kliknite OK, v naslednje pozivno polje vnesite številko, za katero želite vstaviti določen znak, nato si oglejte posnetek zaslona:
5. Pojdi na klik OKin v naslednje pozivno polje vnesite določen znak, ki ga želite dodati besedilu, glejte sliko zaslona:
6. Kliknite OK in izberite eno celico, v katero želite v polje za poziv prikazati rezultat, glejte posnetek zaslona:
7. Končno kliknite OK, je bil določen znak vstavljen v vsak besedilni niz vsake štiri znake, glej posnetek zaslona:
Vsake x znake vstavite v celico s Kutools za Excel
Zgornja koda je morda za večino začetnikov Excela nekoliko težavna. Tu lahko predstavim priročno orodje - Kutools za Excel, Z njegovim dodajanje besedila funkcijo, lahko hitro dodate določeno besedilo ali znak pred, po ali pred določenimi položaji vrednosti celice.
| Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. |
Če ste namestili Kutools za Excel, naredite naslednje:
1. Izberite obseg podatkov, v katerega želite vstaviti določen znak.
2. Nato kliknite Kutools > Besedilo > dodajanje besedila, glej posnetek zaslona:
3. v dodajanje besedila v pogovornem oknu določite znak, ki ga želite vstaviti v Besedilo in nato izberite Določite iz položaja v besedilno polje vnesite položaje, v katere želite vstaviti znak, hkrati pa si lahko rezultat ogledate v desnem podoknu, glejte posnetek zaslona:
nasveti: Tu vtipkam 4,8,12 v besedilno polje Določite ki pomenijo, da je treba določeno besedilo vstaviti za 4., 8. in 12. znakom besedilnega niza.
4. Nato kliknite Ok or Uporabi gumb, je bil določen znak vstavljen v vrednosti celice na določenih mestih.
 |
 |
 |
Kliknite, če želite izvedeti več podrobnosti o tem pripomočku za dodajanje besedila.
Prenesite in brezplačno preizkusite Kutools za Excel zdaj!
Predstavitev: Vstavite določene znake vsakih x znakov v celico s programom Kutools za Excel
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
