1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

? Hvordan legge til /sette inn viss karakter hver x tegnene i celler

You kan gjelde følgende VBA-kode for å sette inn en bestemt karakter etter hvert fjerde tegn i cellene, kan du gjøre som følger:
1. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sett viss karakter hver x tegn til celle
Sub InsertCharacter () 'Updateby20150813Dim RNG Som RangeDim InputRng As Range, OutRng Som RangeDim xRow Som IntegerDim xChar As StringDim indeksen Som IntegerDim arr Som VariantDim xVerdi Som StringDim outValue Som StringDim xNum Som IntegerxTitleId = "KutoolsforExcel" Set InputRng = Application.SelectionSet InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) xRow = Application.InputBox ("Antall tegn:", xTitleId, Type: = 1) xChar = Application.InputBox ("Angi en karakter:", xTitleId, Type: = 2) Still OutRng = Application.InputBox ("Out satt til ( enkelt celle): ", xTitleId, Type: = 8) Sett OutRng = OutRng.Range (" A1 ") xNum = 1 For Hver RNG I InputRng xVerdi = Rng.Value outValue =" "For index = 1 Til VBA.Len (xVerdi ) Hvis indeksen Mod xRow = 0 Og indeksen < > VBA.Len (xVerdi) Deretter outValue = outValue + VBA.Mid (xVerdi, indeks, 1) + xChar Else outValue = outValue + VBA.Mid (xVerdi, indeks, 1) End If Neste OutRng.Cells (xNum, 1). Verdi = outValue xNum = xNum + 1NextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge dataområdet som du vil sette inn viss karakter i løpet av de tekststrenger, se skjermbilde:
4. Og klikk OK, i følgende melding boksen, kan du taste inn nummeret som du vil sette inn viss karakter hver etter, se skjermbilde:
5. Gå på å klikke OK, og i fulgt teksten boksen, må du skrive inn viss karakter som du vil legge til teksten, se skjermbilde:
6. Klikk OK-knappen, og velg en celle der du vil produksjonen resultatet i teksten boksen, se skjermbilde:
7. Endelig, klikk OK, viss karakter er satt inn i hver tekststreng hvert fjerde tegn, se skjermbilde:

Sett viss karakter hver x tegnene i celle med Kutools for Excel
koden ovenfor kanskje litt vanskelig for de fleste Excel nybegynner, her, jeg kan introdusere et nyttig verktøy - Kutools for Excel, med sitt Legg Text-funksjonen, kan du raskt legge en bestemt tekst eller tegn før, etter eller visse posisjoner av celleverdien <. br> Kutools for Excel: med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Hvis du har installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Velg dataområdet som du vil sette inn en bestemt karakter.
2. Klikk deretter Kutools > Tekst > Legg til tekst, se skjermbilde:
tre. I Legg Tekst dialogboksen angir et tegn som du vil sette inn i tekstboksen, og velg Angi fra posisjons delen, i tekstboksen, skriv stillingene som du ønsker å sette inn tegnet etter, på samme tid Du kan forhåndsvise resultatet ved den høyre ruten, se skjermbilde:
Tips: Her skriver jeg 4,8,12 i tekstboksen for Angi som indikerer om å sette inn en bestemt tekst etter 4., 8. og 12. tegn av tekststrengen.
4. Klikk deretter på OK eller Bruk knappen, har det angitte tegnet blitt satt inn i celleverdiene på bestemte posisjoner.
Klikk for å vite mer detaljer om denne Legg til tekst verktøyet.
Gratis nedlasting Kutools for Excel Nå