Mae Excel yn ychwanegu testun a rhif i safle penodol y gell

Yn Excel, mae ychwanegu testunau neu rifau at gelloedd yn swydd gyffredin iawn. Megis ychwanegu gofod rhwng enwau, ychwanegu rhagddodiad neu ôl-ddodiad i gelloedd, ychwanegu llinellau toriad at rifau cymdeithasol. Yma yn y tiwtorial hwn, mae'n rhestru bron pob un o'r senarios ychwanegu yn Excel ac yn darparu'r dulliau cyfatebol i chi.

Llywio’r Tiwtorial hwn

1. Ychwanegu at ddechrau pob cell 1.1 Ychwanegu ar ddechrau celloedd gan ddefnyddio fformiwla 1.2 Ychwanegu ar ddechrau celloedd trwy Flash Fill 1.3 Ychwanegu ar ddechrau celloedd gan ddefnyddio cod VBA

2. Ychwanegu at ddiwedd pob cell 2.1 Ychwanegu ar ddiwedd celloedd gan ddefnyddio fformiwla 2.2 Ychwanegu ar ddiwedd celloedd trwy Flash Fill 2.3 Ychwanegu ar ddiwedd celloedd trwy ddefnyddio cod VBA

3. Ychwanegu at ganol y llinyn 3.1 Ychwanegu ar ôl nfed nod llinyn yn ôl fformiwla 3.2 Ychwanegu ar ôl nfed nod y llinyn gan Flash Fill 3.3 Ychwanegu ar ôl nfed nod y llinyn gan ddefnyddio cod VBA

4. Ychwanegu testun gyda Kutools ar gyfer Excel (ychwanegu cymeriadau i sefyllfa benodol yn ôl yr angen) 4.1 Ychwanegu testun cyn y nod cyntaf neu ar ôl y nod olaf 4.2 Ychwanegu testun yn y safle(oedd) penodedig 4.3 Ymestyn cyfleustodau Ychwanegu Testun

5. Ychwanegu testun cyn neu ar ôl y testun penodol cyntaf 5.1 Ychwanegu testun cyn y testun penodol cyntaf 5.2 Ychwanegu testun ar ôl y testun penodol cyntaf

6. Ychwanegu nod(au) cyn neu ar ôl pob gair 6.1 Ychwanegu nod(au) cyn neu ar ôl pob gair fesul fformiwla 6.2 Ychwanegu nod(au) cyn neu ar ôl pob gair trwy Darganfod ac Amnewid 6.3 Ychwanegu nod(au) cyn neu ar ôl pob gair yn ôl cod VBA

7. Ychwanegu testun rhwng cymeriadau 7.1 Ychwanegu testun rhwng pob nod/digid gyda swyddogaeth Wedi'i Ddiffinio gan Ddefnyddiwr 7.2 Ychwanegu gofod rhwng pob rhif gyda fformiwla

8. Ychwanegu nod(au) rhwng pob gair

9. Ychwanegu cymeriad rhwng testunau a rhifau 9.1 Ychwanegu nod rhwng testunau a rhifau gyda fformiwla 9.2 Ychwanegu nod rhwng testunau a rhifau gyda Flash Fill

10. Ychwanegu llinellau toriad i rifau ffôn/rhifau cymdeithasol 10.1 Ychwanegu llinellau llinellau at rifau yn ôl fformiwla 10.2 Ychwanegu llinellau llinellau at rifau fesul Celloedd Fformat 10.3 Ychwanegu dashes i rif ffôn gan Ychwanegu Testun o Kutools ar gyfer Excel

11. Ychwanegu sero arweiniol i gelloedd i drwsio'r hyd 11.1 Ychwanegu sero arweiniol at gelloedd gyda nodwedd Celloedd Fformat 11.2 Ychwanegu sero arweiniol at gelloedd gyda fformiwla

12. Ychwanegu seroau llusgo at rifau i osod yr hyd

13. Ychwanegu gofod llusgo i'r testun

14. Ychwanegu dyfynodau/cromfachau o amgylch testun neu rifau 14.1 Ychwanegu dyfynodau/cromfachau o gwmpas fesul Celloedd Fformat 14.2 Ychwanegu dyfynodau/cromfachau o gwmpas yn ôl fformiwlâu 14.3 Ychwanegu dyfynodau/cromfachau o gwmpas gan VBA

15. Ychwanegu testun i ganlyniad fformiwla yn uniongyrchol

Nodyn

Yn y tiwtorial hwn, rwy'n creu rhai enghreifftiau i egluro'r dulliau, gallwch chi newid y cyfeiriadau sydd eu hangen arnoch pan fyddwch chi'n defnyddio cod neu fformiwlâu VBA isod, neu gallwch chi lawrlwytho'r samplau ar gyfer rhoi cynnig ar ddulliau yn uniongyrchol.

Cliciwch i lawrlwytho'r ffeil sampl

---

Mae'r rhan hon yn rhestru gwahanol ddulliau o ychwanegu nodau i ddechrau pob cell fel y dangosir y sgrinlun isod:

1.1 Ychwanegu ar ddechrau celloedd gan ddefnyddio fformiwla

---

Yma gallwch ddewis un o'r tair fformiwla isod:

Gweithredwr Concatenate Formula1 "&"

Ymunwch â thestunau lluosog gyda'i gilydd gan ampersa nod "&".

"testun"&cell

Fformiwla2 swyddogaeth CONCATENATE

Defnyddir swyddogaeth CONCATENATE i uno testunau gyda'i gilydd.

CONCATENATE ("testun", cell)

Fformiwla3 swyddogaeth CONCAT

Mae hon yn swyddogaeth newydd sydd ond yn ymddangos yn Excel 2019, Office 365, ac Excel ar-lein.

CONCAT ("testun", cell)

Yn y fformiwlâu generig: cell yw'r cyfeiriad cell at y testun yr ydych am ychwanegu rhagddodiad iddo, a thestun yw'r testun a ddefnyddiwyd i ychwanegu at y gell.

Gan ddefnyddio'r enghraifft uchod, gallwch ddefnyddio'r fformiwlâu yn y bar fformiwla fel a ganlyn:

"&"

=$E$3&B3 or = "Iphone" & B3

Swyddogaeth CONCATENATE

=CONCATENATE($E$3,B3) or = CONCATENATE ("Iphone", B3)

CONCAT swyddogaeth

=CONCAT($E$3,B3) or =CONCAT ("Iphone", B3)

Pwyswch Rhowch allweddol i gael y canlyniad, yna llusgwch handlen awtolenwi i lawr i ychwanegu testun i bob cell o ystod B3:B6.

Sylw: Dylid amgáu testun mewn dyfynodau dwbl, neu mae fformiwla yn dychwelyd gwerth gwall #NAME ?. Os ydych chi'n defnyddio'r cyfeirnod cell i destun, cofiwch ddefnyddio'r cyfeiriad absoliwt, gallwch chi wasgu'r allwedd F4 i newid y cyfeiriad cymharol i gyfeiriad absoliwt.

1.2 Ychwanegu ar ddechrau celloedd trwy Flash Fill

---

Os ydych chi yn Excel 2013 neu fersiynau diweddarach, y nodwedd newydd bwerus, Llenwch Flash, yn gallu llenwi'r celloedd yn seiliedig ar y celloedd uchod y gwnaethoch chi eu nodi'n awtomatig.

Dewiswch gell wrth ymyl y data gwreiddiol cyntaf, teipiwch y data cyntaf â llaw gyda'r testun rhagddodiad fel y dangosir isod:

Yna yn y gell isod, parhewch i deipio'r ail ddata gyda thestun rhagddodiad ， yn ystod y teipio, bydd rhestr mewn lliw llwyd yn arddangos, pwyswch Rhowch allwedd i ganiatáu i'r Flash Fill lenwi'r data yn awtomatig.

Os nad yw'r rhestr rhagolwg yn cynhyrchu, ewch i'r tab Cartref, ac yna cliciwch Llenwch > Llenwch Flash i'w redeg â llaw.

1.3 Ychwanegu ar ddechrau celloedd gan ddefnyddio cod VBA

---

Os ydych chi'n gyfarwydd â chod VBA, dyma gyflwyno cod VBA i ychwanegu testun ar ddechrau pob cell mewn ystod.

1. Dewiswch ystod o gelloedd yr ydych am ychwanegu testun y rhagddodiad, yna pwyswch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna yn y ffenestr popio, cliciwch Mewnosod > Modiwlau i fewnosod modiwl newydd gwag.

3. Copïo a gludo islaw cod VBA i'r modiwl newydd.

VBA: Ychwanegu ar ddechrau'r celloedd

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

Sylw: yn y sgript cod, iphone yw'r testun rydych chi am ei ychwanegu ar ddechrau'r celloedd dethol, newidiwch ef ar gyfer eich angen.

4. Gwasgwch F5 allwedd neu cliciwch Run botwm  yn y ffenestr i actifadu'r cod VBA.

Nawr mae'r holl gelloedd a ddewiswyd wedi'u hychwanegu at y testun "Iphone" ar y dechrau.

---

Ac eithrio ychwanegu testun i ddechrau celloedd, mae ychwanegu testun at ddiwedd celloedd hefyd yn gyffredin. Yma rydyn ni'n cymryd uned ychwanegu ar ddiwedd pob cell ar gyfer enghreifftiau fel y sgrinlun isod:

2.1 Ychwanegu ar ddiwedd celloedd gan ddefnyddio fformiwla

---

Yma gallwch ddewis un o'r tair fformiwla isod:

Gweithredwr Concatenate Formula1 "&"

Ymunwch â thestunau lluosog gyda'i gilydd gan ampersa nod "&".

Cell a "testun"

Fformiwla2 swyddogaeth CONCATENATE

Defnyddir swyddogaeth CONCATENATE i uno testunau gyda'i gilydd.

CONCATENATE(cell,"testun")

Fformiwla3 swyddogaeth CONCAT

Mae hon yn swyddogaeth newydd sydd ond yn ymddangos yn Excel 2019, Office 365 ac Excel ar-lein.

CONCAT(cell,"testun")

Yn y fformiwlâu generig: cell yw'r cyfeiriad cell at y testun rydych chi am ychwanegu ôl-ddodiad iddo, a thestun yw'r testun a oedd yn arfer ychwanegu at y gell.

Gan ddefnyddio'r enghraifft uchod, gallwch ddefnyddio'r fformiwlâu yn y bar fformiwla fel a ganlyn:

"&"

=B3&$E$3 or =B3&"Kg"

Swyddogaeth CONCATENATE

=CONCATENATE(B3, $E$3) or =CONCATENATE(B3, "Kg")

CONCAT swyddogaeth

=CONCAT(B3, $E$3) or =CONCAT(B3, "Kg")

Pwyswch Rhowch allwedd i gael y canlyniad, yna llusgwch handlen awtolenwi i lawr i ychwanegu testun at ddiwedd pob cell o ystod B3:B6.

Sylw: Dylid amgáu testun mewn dyfynodau dwbl, neu mae fformiwla yn dychwelyd gwerth gwall #NAME ?. Os ydych chi'n defnyddio'r cyfeirnod cell i destun, cofiwch ddefnyddio'r cyfeiriad absoliwt, gallwch chi wasgu'r allwedd F4 i newid y cyfeiriad cymharol i gyfeiriad absoliwt.

2.2 Ychwanegu ar ddiwedd celloedd trwy Flash Fill

---

Os ydych chi yn Excel 2013 neu fersiynau diweddarach, y nodwedd newydd bwerus, Llenwch Flash, yn gallu llenwi'r celloedd yn seiliedig ar y celloedd uchod y gwnaethoch chi eu nodi'n awtomatig.

Dewiswch gell wrth ymyl y data gwreiddiol cyntaf, teipiwch y data cyntaf â llaw gyda'r testun ôl-ddodiad fel y dangosir isod:

Yna actifadwch y gell o dan y canlyniad cyntaf, cliciwch Dyddiad > Llenwch Flash, bydd yr holl gelloedd isod gan gynnwys y gell weithredol yn cael eu llenwi'n awtomatig.

2.3 Ychwanegu ar ddiwedd celloedd trwy ddefnyddio cod VBA

---

Dyma god VBA all ychwanegu testun ar ddiwedd pob cell mewn ystod.

1. Dewiswch ystod o gelloedd yr ydych am ychwanegu testun yr ôl-ddodiad, yna pwyswch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna yn y ffenestr popio, cliciwch Mewnosod > Modiwlau i fewnosod modiwl newydd gwag.

3. Copïo a gludo islaw cod VBA i'r modiwl newydd.

VBA: Ychwanegu ar ddiwedd y celloedd

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

Sylw: yn y sgript cod, Kg yw'r testun rydych chi am ei ychwanegu ar ddiwedd y celloedd dethol, newidiwch ef ar gyfer eich angen.

4. Gwasgwch F5 allwedd neu cliciwch Run botwm  yn y ffenestr i actifadu'r cod VBA.

Nawr mae'r testun "Kg" wedi'i ychwanegu ar ddiwedd pob cell.

---

I'r rhan fwyaf ohonoch, mae'n hawdd ychwanegu testunau at ddechrau neu ddiwedd celloedd, ond efallai ei bod braidd yn anodd ychwanegu testunau i ganol celloedd. Cymerwch enghraifft, fel y sgrinlun a ddangosir isod, gan ychwanegu amffinydd, fel colon : ar ddiwedd ail nod pob cell yn ystod B3:B7.

3.1 Ychwanegu ar ôl nfed nod llinyn yn ôl fformiwla

---

Dyma bedair fformiwla a ddarperir i chi allu ymdrin â'r swydd hon, dewiswch un i'w defnyddio:

Fformiwla1 Cyfuno swyddogaethau CHWITH a DDE

CHWITH(cell, n) & "testun" & DDE(cell, LEN(cell) -n)

Fformiwla 2 CYFUNO swyddogaethau CONCATENATE(CONCAT), RIGHT a LEN

CONCATENATE(LEFT(cell, n), "text", RIGHT(cell, LEN(cell) -n))

Or

CONCAT(LEFT(cell, n), "testun", RIGHT(cell, LEN(cell) -n))

Swyddogaeth Fformiwla3 YN LLE

REPLACE(cell, n+1, 0, "testun")

Yn y fformiwlâu generig: cell yw'r cyfeiriad cell at y testun rydych chi am ychwanegu testun yn y canol, a thestun yw'r testun a ddefnyddiwyd i ychwanegu at y gell, n yw'r rhif sy'n diffinio ar ôl pa nod yn y llinyn testun rydych chi am ei ychwanegu testun.

I ddatrys y swydd a grybwyllir uchod, defnyddiwch y fformiwlâu fel a ganlyn:

Cyfuno swyddogaethau CHWITH a DDE

=LEFT(B3, 2) & ":" & DDE(B3, LEN(B3) -2) or =LEFT(B3, 2) & $E$3 & DDE(B3, LEN(B3) -2)

CYFUNO swyddogaethau CONCATENATE(CONCAT), RIGHT a LEN

=CONCATENATE(CHWITH(B3, 2), ":", DDE(B3, LEN(B3) -2)) or =CONCAT (CHWITH(B3, 2), ":", DDE(B3, LEN(B3) -2))

Swyddogaeth REPLACE

=REPLACE(B3, 2+1, 0," :") or =REPLACE(B3, 2+1, 0, $E$3)

Pwyswch Rhowch allweddol i gael y canlyniad, yna llusgwch handlen awtolenwi i lawr i ychwanegu testun ar ôl ail nod pob cell o ystod B3:B7.

Sylw: Dylid amgáu testun mewn dyfynodau dwbl, neu mae fformiwla yn dychwelyd gwerth gwall #NAME ?. Os ydych chi'n defnyddio'r cyfeirnod cell i destun, cofiwch ddefnyddio'r cyfeiriad absoliwt, gallwch chi wasgu'r allwedd F4 i newid y cyfeiriad cymharol i gyfeiriad absoliwt.

3.2 Ychwanegu ar ôl nfed nod y llinyn gan Flash Fill

---

Os ydych chi yn Excel 2013 neu fersiynau diweddarach, mae'r Llenwch Flash, yn gallu llenwi'r celloedd yn seiliedig ar y celloedd uchod y gwnaethoch chi eu nodi'n awtomatig.

Dewiswch gell wrth ymyl y data gwreiddiol cyntaf, teipiwch y data cyntaf â llaw gyda cholon ar ôl yr ail nod fel y dangosir isod:

Yna actifadwch y gell o dan y canlyniad cyntaf, pwyswch Ctrl + E allweddi i actifadu Llenwch Flash gorchymyn, mae pob un o'r celloedd islaw gan gynnwys y gell weithredol wedi'u llenwi'n awtomatig.

Sylw: Os ydych mewn system MAC, pwyswch Command + E allweddi.

3.3 Ychwanegu ar ôl nfed nod y llinyn gan ddefnyddio cod VBA

---

Gall cod VBA wneud y swydd hon hefyd.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna yn y ffenestr popio, cliciwch Mewnosod > Modiwlau i fewnosod modiwl newydd gwag.

3. Copïo a gludo islaw cod VBA i'r modiwl newydd.

VBA: Ychwanegu at ganol y celloedd

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

Sylw: yn y sgript cod, 2 ydy'r rhif yn diffinio'r safle rydych chi am ychwanegu testun ar ei ôl, : yw'r testun rydych chi am ychwanegu ato, 3 yw swm 2 a hyd y testun rydych chi'n ei ychwanegu. Cymerwch enghraifft arall, i ychwanegu "a" ar ôl nod cyntaf y llinyn "AB", dylai'r sgript fod yn Rng.Value = VBA.Left(Rng.Value, 1) &"ac" & VBA.Mid(Rng.Gwerth, 4, VBA.Len(Rng.Value) - 1)

4. Gwasgwch F5 allwedd neu cliciwch Run botwm  yn y ffenestr i actifadu'r cod VBA. Mae deialog yn ymddangos ar gyfer dewis celloedd i ychwanegu testun.

5. Cliciwch OK. Nawr mae'r testun " : " wedi'i ychwanegu ar ôl ail nod pob cell yn ystod B19:B23.

---

Os ydych chi wedi blino ar fformiwlâu a VBA, gallwch chi roi cynnig ar offeryn pwerus a defnyddiol, Kutools ar gyfer Excel, a all eich helpu gyda'i Ychwanegu Testun nodwedd.

Gall y nodwedd Ychwanegu testun hon:

• Ychwanegu testun cyn y nod cyntaf
• Ychwanegu testun ar ôl y nod olaf
• Ychwanegu testun mewn safleoedd penodol
• Estyniad
  Ychwanegu testun cyn llythrennau mawr
  Ychwanegu testun cyn llythrennau bach
  Ychwanegu testun cyn llythrennau mawr/llythrennau bach
  Ychwanegu testun cyn nodau rhifol

Cliciwch i gael treial am ddim 30 diwrnod nawr.

Dewiswch y celloedd rydych chi am ychwanegu testun, yna cymhwyswch y Ychwanegu Testun trwy glicio Kutools > Testun > Ychwanegu Testun.

4.1 Ychwanegu testun cyn y nod cyntaf neu ar ôl y nod olaf

---

Yn y Ychwanegu Testun deialog, teipiwch y testun yr ydych am ei ychwanegu at gelloedd yn y Testun blwch testun, yna gwirio Cyn y cymeriad cyntaf yn y Swydd adran hon.

Cliciwch Gwneud cais or Ok i orffen yr ychwanegu.

I ychwanegu testun ar ôl y nod olaf, teipiwch y testun rydych chi am ei ychwanegu at gelloedd yn y Testun blwch testun, yna gwirio Ar ôl y cymeriad olaf yn y Swydd adran hon.

Cliciwch Gwneud cais or Ok i orffen yr ychwanegu.

4.2 Ychwanegu testun yn y safle(oedd) penodedig

---

Weithiau, efallai y byddwch am ychwanegu testun i ganol y gell, neu ychwanegu testun i sawl safle o'r gell. Gan dybio ychwanegu gwahanydd "-" ar ôl trydydd a seithfed digid y rhifau cymdeithasol fel y sgrinlun isod:

Yn y Ychwanegu Testun deialog, teipiwch y testun i mewn Testun blwch testun, a gwirio Nodwch opsiwn, yna teipiwch y safleoedd gan ddefnyddio coma i wahanu yn y blwch testun ac yna cliciwch Ok or Gwneud cais.

4.3 Ymestyn cyfleustodau Ychwanegu Testun

---

Heblaw am ychwanegu testun i'r safleoedd arferol (dechrau, diwedd a safle penodedig), mae'r Ychwanegu Testun cyfleustodau hefyd yn cefnogi i ychwanegu testun

• Cyn llythyrau uchaf
• Cyn llythrennau bach
• Cyn llythrennau mawr/llythrennau bach
• Cyn cymeriadau rhifol

Yn y Ychwanegu Testun deialog, teipiwch y testun i mewn Testun blwch testun, a gwirio Dim ond ychwanegu at opsiwn, yna cliciwch ar y gwymplen isod i ddewis y llawdriniaeth yn ôl yr angen.

Ac eithrio nodwedd Ychwanegu Testun, mae gan Kutools ar gyfer Excel nodweddion defnyddiol 300 + eraill a all wneud ffafr i chi mewn gwahanol swyddi Excel, mynnwch y lawrlwythiad am ddim nawr.

---

Mae'r rhan hon yn darparu fformiwlâu ar ychwanegu testun cyn neu ar ôl y testun penodol a ymddangosodd gyntaf yn Excel.

5.1 Ychwanegu testun cyn y testun penodol cyntaf

---

Er enghraifft, rydych chi am ychwanegu testun "(gwerthiant)" cyn y testun cyntaf "pris" yn y gell fel y dangosir sgrinluniau isod:

Yn Excel, gall y swyddogaethau REPLACE a SUBSTITUTE ddatrys y swydd hon.

Swyddogaeth REPLACE

REPLACE(cell, FIND ("darganfod_testun", cell), 0, "ychwanegu_testun")

Swyddogaeth SYLWEDDOL

SUBSTITUTE(cell,"find_text", "disodli_text", 1)

Yn yr achos hwn, defnyddiwch y fformiwlâu uchod fel a ganlyn:

= REPLACE(B4,FIND("pris", B4),0,"(gwerthiant)")

Or

=SUBSTITUTE(B4,"pris",,"(gwerthu)pris",1)

Y dadleuon fformiwla yn yr achos hwn yw

Cell: B4,

Find_text: pris,

Ychwanegu_testun: (gwerthiant),

Disodli_testun: (gwerthu) pris.

Pwyswch Rhowch allweddol i gael y canlyniad ychwanegu cyntaf, yna llusgwch handlen awtolenwi dros gelloedd sydd angen y fformiwla hon.

5.2 Ychwanegu testun ar ôl y testun penodol cyntaf

---

Er enghraifft, rydych chi am ychwanegu symbol arian cyfred "$" ar ôl y colon cyntaf " : " yn y gell fel y dangosir y sgrinluniau isod:

Yn Excel, gall y swyddogaethau REPLACE a SUBSTITUTE ddatrys y swydd hon.

Swyddogaeth REPLACE

REPLACE(cell, FIND ("find_text", cell), find_text_length, "replace_text")

Swyddogaeth SYLWEDDOL

SUBSTITUTE(cell, "find_text", "disodli_text")

Yn yr achos hwn, defnyddiwch y fformiwlâu uchod fel a ganlyn:

= REPLACE(B12, FIND(":", B12), 1,":$")

Or

=SUBSTITUTE(B12,":",":$")

Y dadleuon fformiwla yn yr achos hwn yw

Cell: B12,

Darganfod_testun: :,

Disodli_testun::$.

Darganfod_testun_hyd:1

Pwyswch Rhowch allweddol i gael y canlyniad ychwanegu cyntaf, yna llusgwch handlen awtolenwi dros gelloedd sydd angen y fformiwla hon.

---

Yn y rhan hon o'r tiwtorial, mae'n cyflwyno tri dull gwahanol (fformiwla, Find and Replace, VBA) i'ch helpu i ychwanegu cymeriadau cyn neu ar ôl pob gair o gell.

Ychwanegwch nodau cyn pob gair

Ychwanegwch nodau ar ôl pob gair

6.1 Ychwanegu nod(au) cyn neu ar ôl pob gair fesul fformiwla

---

Gellir defnyddio'r swyddogaeth SUBSTITUTE i ddatrys y swydd hon, y fformiwlâu cyffredinol fel a ganlyn:

Ychwanegu cyn pob gair

"cymeriad"&SUBSTITUTE(llinyn, " "," nod)

Ychwanegu ar ôl pob gair

SUBSTITUTE(llinyn," "," cymeriad ") a "cymeriad"

Gan dybio ychwanegu "+" cyn pob gair yn y rhestr o B3:B6, defnyddiwch y fformiwla fel hyn:

= "+"&SUBSTITUTE(B3, " "," +")

Pwyswch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch handlen llenwi auto i lawr i gael yr holl ganlyniadau.

Gan dybio ychwanegu ($) ar ôl pob gair o restr B11:B14, defnyddiwch y fformiwla fel a ganlyn:

=SUBSTITUTE(B11," ","($) ")&"($)"

Pwyswch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch handlen llenwi auto i lawr i gael yr holl ganlyniadau.

6.2 Ychwanegu nod(au) cyn neu ar ôl pob gair trwy Darganfod ac Amnewid

---

Os ydych chi am ychwanegu nodau cyn pob gair heb gynnwys y cyntaf, neu ychwanegu nodau ar ôl pob gair heb gynnwys yr olaf fel y sgrinlun a ddangosir isod, mae'r Excel wedi'i gynnwys Dod o hyd ac yn ei le Gall cyfleustodau drin y swydd hon.

Ychwanegu cyn pob gair heb gynnwys yr un cyntaf

Ychwanegu ar ôl pob gair heb gynnwys yr olaf

1. Dewiswch y celloedd yr ydych am ychwanegu cymeriadau cyn neu ar ôl pob gair, yna pwyswch Ctrl + H allweddi i alluogi'r Dod o hyd ac yn ei le deialog.

2. Teipiwch le i mewn i'r Dewch o hyd i beth blwch testun, yna teipiwch y nodau newydd gyda gofod ynddynt Amnewid gyda blwch testun, ac yn olaf cliciwch ar y Amnewid All botwm.

Ymgyrch	cyffredinol	enghraifft
Ychwanegwch nodau cyn pob gair	Ychwanegu cymeriadau newydd yn dilyn bwlch	Ychwanegu (gwerth) cyn pob gair

Ymgyrch	cyffredinol	enghraifft
Ychwanegwch nodau ar ôl pob gair	Cymeriadau newydd i ddilyn gyda bwlch	Ychwanegu - ar ôl pob gair

Yma yn darparu dau god VBA ar gyfer ychwanegu cymeriadau cyn neu ar ôl pob gair, os gwelwch yn dda rhedeg y cod drwy ddilyn y camau isod.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr popping, cliciwch Mewnosod > Modiwlau i fewnosod modiwl gwag newydd.

3. Copïwch a gludwch isod y cod VBA i'r modiwl.

Ychwanegu cyn pob gair

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Ychwanegu ar ôl pob gair

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Gwasgwch F5 allwedd i redeg y cod (neu gallwch glicio Run botwm   ), mae deialog yn ymddangos i ofyn ichi ddewis celloedd di-dor i weithio, cliciwch OK.

5. Yn yr ail pops allan deialog, teipiwch y cymeriadau yr ydych am eu hychwanegu, cliciwch OK.

Yna bydd y nodau'n cael eu hychwanegu ar flaen neu ddiwedd pob gair.

---

Weithiau, efallai y byddwch am ychwanegu testun rhwng pob nod. Yma yn y rhan hon, mae'n rhestru dwy senario, un yw ychwanegu testun rhwng pob cymeriad, un arall yw ychwanegu gofod rhwng pob rhif.

7.1 Ychwanegu testun rhwng pob nod/digid gyda swyddogaeth Wedi'i Ddiffinio gan Ddefnyddiwr

---

I ychwanegu nodau rhwng pob nod mewn llinyn, gall y swyddogaeth Diffiniedig Defnyddiwr eich helpu chi.

Yn yr achos hwn, rydym yn ychwanegu gofod rhwng pob cymeriad.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr popping, cliciwch Mewnosod > Modiwlau i fewnosod modiwl gwag newydd.

3. Copïwch a gludwch isod y cod VBA i'r modiwl.

Ychwanegu testun rhwng cymeriadau

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Arbedwch y cod a chau'r ffenestr i fynd yn ôl i'r daflen waith, yna teipiwch isod fformiwla i mewn i gell yr ydych am osod y canlyniad ychwanegu.

=Ychwanegu Testun(B3)

B3 yw'r gell sy'n cynnwys y llinyn rydych chi am ychwanegu gofod rhwng nodau.

5. Gwasgwch Rhowch allweddol i gael y canlyniad, llusgo awto llenwi handlen dros gelloedd i gael canlyniadau eraill fel y mae ei angen arnoch.

Sylw: 1） Yn y cod VBA, gallwch chi newid y "" i destunau eraill yn ôl yr angen, gan dybio ei newid i "-" i ychwanegu - rhwng cymeriadau. 2） Bydd y cod yn ychwanegu'r testun newydd ar ôl pob nod. Gallwch ddileu'r testun a ychwanegwyd ddiwethaf os nad oes ei angen arnoch trwy ddefnyddio'r fformiwla isod. I gael rhagor o fanylion am y fformiwla, ewch i: Sut i Dynnu Cymeriadau Cyntaf Neu Olaf N O Gell Neu Llinyn Yn Egel? LEFT(cell, LEN(cell)-text_length)

7.2 Ychwanegu gofod rhwng pob rhif gyda fformiwla

---

Os ydych am ychwanegu gofod rhwng digidau llinyn sy'n werth rhifol, gallwch ddefnyddio'r ffwythiant TESTUN.

Sylw: mae angen i'r niferoedd o ystod yr ydych am ychwanegu gofod rhyngddynt fod yn yr un hyd, fel arall, gall rhai canlyniadau fod yn anghywir.

Gan dybio bod yma restr o rifau 8 digid yn ystod B10:B12, dewiswch gell a fydd yn gosod y canlyniad, teipiwch o dan y fformiwla:

=TEXT(B10,"# # # # # # # #”)

Pwyswch Rhowch allweddol, yna llusgwch handlen awtolenwi dros gelloedd eraill.

Os yw hyd y rhifau yn 5, bydd y fformiwla yn cael ei newid fel =TEXT(B10,"# # # #).

---

Os ydych chi am ychwanegu nod(au) rhwng pob gair, gan dybio ychwanegu gofod rhwng enwau cyntaf, canol, olaf fel y sgrinlun a ddangosir isod, gallwch ddefnyddio swyddogaeth Wedi'i Ddiffinio gan Ddefnyddiwr.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr popping, cliciwch Mewnosod > Modiwlau i fewnosod modiwl gwag newydd.

3. Copïwch a gludwch isod y cod VBA i'r modiwl.

Ychwanegu cymeriadau rhwng geiriau

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
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
AddCharacters = xOut
End Function

4. Arbedwch y cod a chau'r ffenestr i fynd yn ôl i'r daflen waith, yna teipiwch isod fformiwla i mewn i gell yr ydych am osod y canlyniad ychwanegu.

=Ychwanegu Cymeriadau(B3)

B3 yw bod y gell yn cynnwys y llinyn rydych chi am ychwanegu gofod rhwng geiriau.

5. Gwasgwch Rhowch allweddol i gael y canlyniad, llusgo awto llenwi handlen dros gelloedd i gael canlyniadau eraill fel y mae ei angen arnoch.

Sylw: yn y cod VBA, gallwch newid y "" i destunau eraill yn ôl yr angen, gan dybio ei newid i "-" to add - rhwng geiriau.

---

I ychwanegu nod(au) penodol rhwng testunau a rhifau fel y sgrinlun a ddangosir isod, dyma ddarparu dau ddull.

9.1 Ychwanegu nod rhwng testunau a rhifau gyda fformiwla

---

Os yw'r testunau ym mlaen y rhifau, y fformiwla generig yw

TRIM(REPLACE(llinyn,MIN(FIND({1,2,3,4,5,6,7,8,9,0},llinyn&"1234567890")),0,"-"))

Gan ddefnyddio'r achos uchod fel enghraifft, defnyddiwch y fformiwla fel hyn:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Pwyswch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch handlen llenwi auto dros gelloedd eraill i lenwi'r fformiwla hon.

Os yw'r rhifau ym mlaen y testunau, y fformiwla generig yw

LEFT(llinyn, SUM(LEN(llinyn)-LEN(SUBSTITUTE(llinyn,{0,1,2,3,4,5,6,7,8,9},"")))&""&DE (llinyn, LEN(B13)- SUM(LEN(llinyn)-LEN(SUBSTITUTE(llinyn, {0,1,2,3,4,5,6,7,8,9}," ""))))

Gan ddefnyddio'r achos uchod fel enghraifft, defnyddiwch y fformiwla fel hyn:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

Pwyswch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch handlen llenwi auto dros gelloedd eraill i lenwi'r fformiwla hon.

9.2 Ychwanegu nod rhwng testunau a rhifau gyda Flash Fill

---

Os ydych chi yn Excel 2013 neu fersiynau diweddarach, mae'r Llenwch Flash gall hefyd eich helpu i ychwanegu nod(au) rhwng testunau a rhifau.

Wrth ymyl y data gwreiddiol, teipiwch y data newydd sydd wedi'i ychwanegu'r nod(au) rhwng testunau a rhifau. Yna pwyswch Enter i fynd i gell nesaf y canlyniad cyntaf.

A gwasgwch Ctrl + E allweddi i alluogi Flash Fill.

Estyniad

Mae'r tiwtorial hwn hefyd yn rhestru rhai senarios ynghylch ychwanegu testun y gallem ddod ar eu traws yn ein bywyd bob dydd neu ein gwaith.

---

Weithiau, mae angen ichi ychwanegu gwahanyddion fel llinellau doriadau i gyfres o rifau ffôn neu rifau cymdeithasol fel y dangosir y sgrinlun isod. Rhoddir cynnig ar deipio â llaw os oes angen ychwanegu cannoedd o rifau. Yn y rhan hon, mae'n cyflwyno tair ffordd anodd o drin y swydd hon yn gyflym.

10.1 Ychwanegu llinellau llinellau at rifau yn ôl fformiwla

---

Dyma ddwy fformiwla sy'n gallu ychwanegu llinellau toriad at rifau yn gyflym. I ychwanegu llinellau toriad ar ôl y trydydd a'r chweched rhif yng nghell B3, defnyddiwch y fformiwla fel a ganlyn:

Swyddogaeth REPLACE

= REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")

Swyddogaeth TESTUN

=TEXT(B3,"???-???-???")

Pwyswch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch handlen llenwi auto dros gelloedd eraill.

Sylw: Gallwch newid uchod dadleuon fformiwlâu yn ôl yr angen. Tybio ychwanegu "-" ar ôl yr ail, pedwerydd a chweched digid, gallwch ddefnyddio'r fformiwlâu fel: = REPLACE(REPLACE(REPLACE(B3,3,0,"-"),6,0,"-"),9,0,"-") =TEXT(B3,"??-??-??-???")

10.2 Ychwanegu llinellau llinellau at rifau fesul Celloedd Fformat

---

I ychwanegu llinellau toriad yn uniongyrchol at y niferoedd yn y celloedd gwreiddiol, gallwch ddefnyddio'r Celloedd Fformat nodwedd.

1. Dewiswch y rhifau yr ydych am ychwanegu llinellau toriad atynt, yna pwyswch Ctrl + 1 allweddi i alluogi'r Celloedd Fformat deialog.

2. Yn y Celloedd Fformat deialog, o dan y Nifer tab, dewis Custom oddi wrth y Categori adran hon.

3. Yna yn y dde math adran, math ###-###-### i mewn i'r blwch testun, cliciwch OK.

Nawr mae'r niferoedd a ddewiswyd wedi'u hychwanegu dashes.

10.3 Ychwanegu dashes i rif ffôn gan Ychwanegu Testun o Kutools ar gyfer Excel

---

Os oes gennych Kutools ar gyfer Excel gosod yn Excel, y Ychwanegu Testun gall nodwedd hefyd wneud ffafr i chi.

1. Dewiswch y celloedd sy'n cynnwys y niferoedd sydd eu hangen i gael eu hychwanegu dashes, cliciwch Kutools > Testun > Ychwanegu Testun.

2. Yn y Ychwanegu Testun deialog, teipiwch y llinell doriad neu wahanydd arall i mewn Testun blwch testun, dewiswch Nodwch opsiwn, yna teipiwch y safleoedd rydych chi am ychwanegu llinellau toriad ar eu hôl a'u gwahanu â choma yn y blwch testun isod.

3. Cliciwch Ok neu Ymgeisiwch. Yna mae'r niferoedd a ddewiswyd wedi'u hychwanegu dashes.

Dadlwythiad am ddim Ychwanegu Testun ar gyfer treial 30 diwrnod.

---

Gan dybio bod rhestr o rifau mewn gwahanol hyd, rydych chi am ychwanegu sero arweiniol i'w gwneud yn yr un hyd ac edrych yn daclus â'r sgrinlun a ddangosir isod. Dyma ddau ddull a ddarperir i chi drin y swydd.

11.1 Ychwanegu sero arweiniol at gelloedd gyda nodwedd Celloedd Fformat

---

Gallwch ddefnyddio'r Celloedd Fformat nodwedd i osod fformat arferol i drwsio hyd y gell trwy ychwanegu sero arweiniol.

1. Dewiswch y celloedd yr ydych am ychwanegu sero arweiniol, yna pwyswch Ctrl + 1 allweddi i alluogi Celloedd Fformat deialog.

2. Yn y Celloedd Fformat deialog, o dan y Nifer tab, dewis Custom oddi wrth y Categori adran hon.

3. Yna yn y dde math adran, math 0000 i mewn i'r blwch testun (i osod hyd y rhif i 4-dight, teipiwch 0000, gallwch ei newid i hyd arall, megis 5-dight, teipiwch 00000), cliciwch OK.

Yna mae'r niferoedd wedi'u hychwanegu yn arwain sero ac yn yr un hyd.

Sylw: os yw hyd y data gwreiddiol yn fwy na'r hyd gosod, bydd yn arddangos y data gwreiddiol heb sero arweiniol.

11.2 Ychwanegu sero arweiniol at gelloedd gyda fformiwla

---

Os nad ydych am newid y data gwreiddiol, gallwch ddefnyddio fformiwla i ychwanegu sero arweiniol at rifau mewn lleoliadau eraill.

Dyma dair swyddogaeth a all eich helpu.

Swyddogaeth TESTUN Formula1

TEXT(rhif,"00…")

Fformiwla2 swyddogaeth HAWL

DDE ("00…"&rhif, hyd)

Swyddogaeth Formula3 BASE

BASE(rhif, 10, hyd)

Mae nifer y sero yn y fformiwla yn hafal i hyd y rhif.

Yma rydych chi'n gosod 4-digid fel hyd y rhifau, defnyddiwch y fformiwlâu fel isod:

= TESTUN (B10, "0000")

=DE ("0000"&B10,4)

=BASE(B10,10,4)

Pwyswch Rhowch allweddol a llusgo handlen llenwi auto i lawr.

Sylw: os yw hyd y data gwreiddiol yn fwy na'r hyd gosod, bydd yn arddangos y data gwreiddiol heb sero arweiniol.

---

Os ydych am ychwanegu seroau ôl at rifau ar gyfer gwneud hyd sefydlog, gan dybio ychwanegu seroau llusgo at y rhifau yng nghell B3:B7 i'w gwneud yn hyd 5 digid fel y dangosir isod y ciplun, gallwch gymhwyso fformiwla i ddelio â'r swydd .

Swyddogaeth REPT

rhif&REPT("0", hyd-LEN(rhif))

Yn y fformiwla, mae'r ddadl "rhif" yn cynrychioli'r rhif neu gyfeirnod cell yr ydych am ychwanegu seroau llusgo, a'r ddadl "hyd" yw'r hyd sefydlog rydych chi ei eisiau.

Defnyddiwch y fformiwla fel hyn:

=B3&REPT("0",5- LEN(B3))

Pwyswch Rhowch allwedd a llusgo handlen llenwi auto i lawr i gelloedd sydd angen y fformiwla hon.

---

Os ydych chi eisiau allforio neu gopïo data o daflen waith i lyfr nodiadau, mae'n bosibl y bydd y testunau'n cael eu gosod yn flêr gan fod y gwerthoedd celloedd mewn gwahanol hydoedd, er mwyn eu gwneud yn edrych yn daclus fel y dangosir y sgrin isod, mae angen ichi ychwanegu gofod llusgo.

Ar gyfer datrys y swydd hon, gall swyddogaeth REPT wneud ffafr i chi.

LEFT(testun & REPT (" ", max_length), max_length)

Yn y fformiwla, y ddadl "testun" yw'r testun neu'r cyfeirnod cell yr ydych am ychwanegu gofod llusgo, a'r ddadl "max_length" yw'r hyd sefydlog rydych chi am wneud y testunau, sy'n gorfod bod yn hirach na neu'n hafal i'r uchafswm hyd y testunau a ddefnyddir.

I ychwanegu gofod llusgo at y testunau yng nghell B3:C6, defnyddiwch y fformiwla isod:

=LEFT(B3 & REPT(" ", 10), 10)

Pwyswch Rhowch allweddol, yna llusgwch handlen llenwi auto drosodd i bob cell sydd ei angen fformiwla hon.

Yn yr achos hwn, gan mai'r hiraf o'r testun a ddefnyddir yw 9-cymeriad, rydym yn defnyddio 10 yma.

---

Weithiau, mae angen ichi ychwanegu dyfynodau neu fracedi o amgylch y testun neu'r rhifau mewn celloedd fel y dangosir y sgrin isod, ac eithrio teipio â llaw fesul un, dyma ddau ddull yn Excel y gall eu datrys yn gyflym.

14.1 Ychwanegu dyfynodau/cromfachau o gwmpas fesul Celloedd Fformat

---

Os ydych chi am ychwanegu dyfynodau o amgylch testun yn y data gwreiddiol, gall y nodwedd Celloedd Fformat yn Excel eich helpu chi.

1. Dewiswch y celloedd yr ydych am ychwanegu dyfynodau, pwyswch Ctrl + 1 allweddi i alluogi'r Celloedd Fformat deialog.

2. Yn y Celloedd Fformat deialog, dan Nifer tab, dewis Custom o'r rhestr o Categori, yna ewch i'r adran gywir i deipio "''" @ "''" i mewn i'r math blwch testun. Cliciwch OK.

Mae'r testun mewn celloedd dethol wedi'u hychwanegu gyda dyfynodau.

Os ydych chi eisiau ychwanegu cromfachau o amgylch y testun, yn y Math textbox o'r Celloedd Fformat deialog, defnyddiwch (@).

14.2 Ychwanegu dyfynodau/cromfachau o gwmpas yn ôl fformiwlâu

---

Gellir defnyddio fformiwlâu hefyd i ychwanegu dyfynodau at destun mewn celloedd eraill.

Defnyddio & cysylltydd

""""&testun&"""

Or

torgoch(34)&testun&char(34)

Yn yr achos hwn, testun yn y gell B11, defnyddiwch y fformiwlâu fel a ganlyn:

= """&B11&""""

Or

= torgoch(34)&B11&char(34)

Pwyswch Rhowch allwedd a llusgo handlen llenwi auto i lawr i lenwi celloedd.

Os ydych am ychwanegu cromfachau o amgylch testun, gan ddefnyddio'r fformiwla fel "("&testun&)".

14.3 Ychwanegu dyfynodau/cromfachau o gwmpas gan VBA

---

Os oes angen cod VBA arnoch i ddatrys y swydd hon, dyma VBA.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna yn y ffenestr popio, cliciwch Mewnosod > Modiwlau i fewnosod modiwl newydd gwag.

3. Copïo a gludo islaw cod VBA i'r modiwl newydd.

VBA: Ychwanegu dyfynodau o amgylch testunau

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

Sylw: yn y sgript cod, """"&Rng.Value&""" yn dynodi ychwanegu " "o amgylch y testunau, os ydych am ychwanegu cromfachau () o amgylch testun, newidiwch ef i "(" & Rng.Value&")".

4. Gwasgwch F5 allwedd neu cliciwch Run botwm  yn y ffenestr i actifadu'r cod VBA. Mae deialog yn ymddangos ar gyfer dewis celloedd i ychwanegu dyfynbrisiau.

5. Cliciwch OK. Nawr mae'r dyfynodau wedi'u hychwanegu o amgylch testunau yn y celloedd a ddewiswyd.

---

Weithiau, er mwyn helpu defnyddwyr eraill i ddeall data yn well, efallai y bydd angen i chi ychwanegu testun yn y canlyniadau fformiwla fel y sgrinlun a ddangosir isod. Ar gyfer cynnwys testun mewn fformiwla, gallwch ddefnyddio'r dyfynodau o amgylch y testun ac ychwanegu'r & connector i gyfuno'r testun a'r fformiwla gyda'i gilydd.

Achos 1 ychwanegu testun cyn y fformiwla

"Heddiw yw "&TEXT(TODAY()," dddd, mmmm dd.")

Achos 2 ychwanegu testun ar ôl fformiwla

TEXT(NOW(),,"HH:MM:SS")&" yw'r amser presennol."

Achos 3 ychwanegu testunau ar ddwy ochr y fformiwla

msgstr "Gwerthwyd heddiw "&data&" kg."

---

Mwy o Diwtorialau Excel:

Cyfuno Llyfrau Gwaith Lluosog/Taflenni Gwaith yn Un Mae'r tiwtorial hwn, yn rhestru bron pob un yn cyfuno senarios y gallech eu hwynebu a darparu atebion proffesiynol cymharol i chi. Rhannwch Testun, Rhif, a Chelloedd Dyddiad (Gwahanu'n Golofnau Lluosog) Rhennir y tiwtorial hwn yn dair rhan: celloedd testun hollti, celloedd rhif hollti a chelloedd dyddiad hollti. Mae pob rhan yn darparu gwahanol enghreifftiau i'ch helpu chi i wybod sut i drin y swydd hollti wrth ddod ar draws yr un broblem. Cyfuno Cynnwys Celloedd Lluosog Heb Golli Data Yn Excel Mae'r tiwtorial hwn yn culhau'r echdynnu i safle penodol mewn cell ac yn casglu gwahanol ddulliau i helpu i dynnu testun neu rifau o gell yn ôl safle penodol yn Excel. Cymharwch Ddwy Golofn Ar Gyfer Cydweddiadau a Gwahaniaethau Yn Excel Yma mae'r erthygl hon yn ymdrin â'r rhan fwyaf o senarios posibl o gymharu dwy golofn y gallech ddod ar eu traws, a gobeithio y gall eich helpu.