Sut i ychwanegu / mewnosod cymeriad penodol pob x nod mewn celloedd?
Gan dybio, mae gen i restr o dannau testun yr wyf am fewnosod rhuthrau neu unrhyw wahanyddion eraill ar ôl pob pedwar nod mewn celloedd i gael y canlyniad screenshot canlynol. Mae angen gormod o gelloedd i fewnosod y cymeriad penodol, a oes unrhyw ffyrdd cyflym o fewnosod rhuthrau bob pedwar cymeriad yn Excel?
Mewnosod cymeriad penodol pob x nod yn y gell gyda chod VBA
Mewnosodwch gymeriad penodol bob x nod yn y gell gyda Kutools ar gyfer Excel
Mewnosod cymeriad penodol pob x nod yn y gell gyda chod VBA
Gallwch gymhwyso'r cod VBA canlynol i fewnosod cymeriad penodol ar ôl pob pedwar nod mewn celloedd, gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Mewnosodwch gymeriad penodol pob x nod yn y gell
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. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am fewnosod cymeriad penodol yn y tannau testun, gweler y screenshot:
4. a chliciwch OK, yn y blwch prydlon canlynol, nodwch y rhif rydych chi am fewnosod cymeriad penodol bob ar ôl, gweler y screenshot:
5. Ewch ymlaen i glicio OK, ac yn y blwch prydlon a ddilynir, nodwch y cymeriad penodol yr ydych am ei ychwanegu at y testun, gweler y screenshot:
6. Cliciwch OK botwm, a dewis un gell lle rydych chi am allbynnu'r canlyniad yn y blwch prydlon, gweler y screenshot:
7. O'r diwedd, cliciwch OK, mae'r cymeriad penodol wedi'i fewnosod ym mhob llinyn testun bob pedwar nod, gweler y screenshot:
Mewnosodwch gymeriad penodol bob x nod yn y gell gyda Kutools ar gyfer Excel
Efallai bod y cod uchod ychydig yn anodd i'r mwyafrif o ddechreuwyr Excel, yma, gallaf gyflwyno teclyn defnyddiol - Kutools ar gyfer Excel, Gyda'i Ychwanegu Testun nodwedd, gallwch ychwanegu testun neu gymeriad penodol yn gyflym cyn, ar ôl neu mewn safleoedd penodol gwerth y gell.
Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Os ydych chi wedi gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Dewiswch yr ystod ddata rydych chi am fewnosod cymeriad penodol.
2. Yna cliciwch Kutools > Testun > Ychwanegu Testun, gweler y screenshot:
3. Yn y Ychwanegu Testun blwch deialog, nodwch gymeriad rydych chi am ei fewnosod yn y Testun blwch, ac yna dewis Nodwch o'r Swydd adran, yn y blwch testun, nodwch y swyddi rydych chi am fewnosod y cymeriad ar ôl, ar yr un pryd, gallwch chi gael rhagolwg o'r canlyniad yn y cwarel iawn, gweler y screenshot:
Awgrymiadau: Dyma fi'n teipio 4,8,12 ym mlwch testun Nodwch sy'n nodi mewnosod y testun penodol ar ôl 4ydd, 8fed a 12fed nod llinyn y testun.
4. Yna cliciwch Ok or Gwneud cais botwm, mae'r cymeriad penodedig wedi'i fewnosod yn y gwerthoedd celloedd mewn safleoedd penodol.
Cliciwch i wybod mwy o fanylion am y cyfleustodau Ychwanegu Testun hwn.
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Demo: Mewnosodwch gymeriad penodol bob x nod yn y gell gyda Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!