Skip i'r prif gynnwys

Sut i ychwanegu tannau o destun at gelloedd lluosog yn Excel?

Os bydd angen i ni ychwanegu rhywfaint o destun neu dannau penodol o destun mewn sawl cell, bydd yn llafurus ac yn cymryd llawer o amser i gopïo'r testun hwn a'i gludo i bob cell fesul un. Gall y dulliau canlynol ein helpu i ychwanegu testun penodol mewn sawl cell yn gyfleus ac yn gyflym.

swigen dde glas saeth Ychwanegwch destun penodol i gelloedd lluosog yn Excel gyda VBA

Gall defnyddio VBA leddfu ein gwaith ac ychwanegu testun penodol mewn sawl cell heb gopïo a phastio.

Cam 1: Dewiswch y celloedd y byddwch chi'n ychwanegu'r testun penodol ynddynt.

Cam 2: Dalwch i lawr y ALT + F11 allweddi, ac mae'n agor ffenestr Microsoft Visual Basic for Applications.

Cam 3: Cliciwch Mewnosod >> Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.

Is-Add2Formula ()
'Ychwanegu testun

Ar gyfer pob c Yn Dethol
c.Gweithgarwch
ActiveCell.FormulaR1C1 = "prawf -" & ActiveCell.Formula
Nesaf c

Is-End

Cam 4: Pwyswch y F5 allwedd i redeg y macro hwn.

Nodyn: Dim ond ychwanegu'r testun - o flaen pob testun cell. Os ydych chi am ychwanegu testun neu dannau eraill, amnewidiwch y testun - gyda'r testun penodol rydych chi am ei ychwanegu.

swigen dde glas saeth Ychwanegu testun penodol i gelloedd lluosog yn Excel gyda Kutools ar gyfer Excel

Ar gyfer defnyddwyr cyffredin Microsoft Excel, efallai na fyddwn yn gyfarwydd â VBA. Bob yn ail, mae'r Kutools ar gyfer ExcelGall offeryn Ychwanegu Testun ein helpu i ychwanegu'r testun neu'r tannau penodol mewn sawl cell yn gyflym ac yn hawdd.

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now

Cam 1: Dewiswch y celloedd y byddwch chi'n ychwanegu'r testun penodol ynddynt.

Cam 2: Cliciwch y Kutools > Offer Testun > Ychwanegu Testun…. Gweler y screenshot:

Cam 3: Yn y Ychwanegu Testun blwch deialog, nodwch y testun a'r nodau penodol yn yr adran Testun.

Cam 4: gwiriwch safle lle byddwch chi'n ychwanegu'r testun penodol yn y Swydd adran. (Sylwch: os ydych chi am fewnosod y testun mewn man penodol, gwiriwch Nodwch a nodwch y sefyllfa.) Gweler y screenshot:

Cam 5: Cliciwch OK or Gwneud cais.

Mae adroddiadau Ychwanegu Testun offeryn o Kutools ar gyfer Excel yn ein cefnogi i ychwanegu unrhyw destun a chymeriadau penodol cyn neu ar ôl y testun cell gwreiddiol. Yn fwy na hynny, gallwn ychwanegu testun penodol rhwng testunau celloedd gwreiddiol. Ni waeth pa osodiadau rydych chi'n eu gosod, gallwch chi gael rhagolwg o'r newidiadau celloedd yn yr adran Rhagolwg.

Erthyglau perthnasol:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad

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!
Comments (4)
No ratings yet. Be the first to rate!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations