Skip i'r prif gynnwys

Sut i fewnosod yr un testun ym mhob rhes arall yn Excel?

Yn yr erthygl hon, byddwn yn dangos i chi sut i fewnosod yr un testun ym mhob rhes arall yn Excel. Porwch am fwy o fanylion.

Mewnosodwch yr un testun ym mhob rhes â chod VBA
Mewnosodwch yr un testun ym mhob rhes arall gyda Kutools ar gyfer Excel


Mewnosodwch yr un testun ym mhob rhes â chod VBA

Gan dybio eich bod am fewnosod testunau “Enw”, “Data” a “Sgôr” ym mhob rhes yn yr ystod benodol fel y dangosir isod y llun. Rhowch gynnig ar y cod VBA canlynol.

1. Yn y daflen waith, pwyswch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

2. Cliciwch Mewnosod > Modiwlau. Gweler y screenshot:

3. Copïwch a gludwch islaw cod VBA i mewn i olygydd y Cod.

Cod VBA: mewnosodwch yr un testun ym mhob rhes yn Excel

Sub inserttexteveryonerow()
	Dim Last As Integer
	Dim emptyRow As Integer
	Last = Range("A" & Rows.Count).End(xlUp).Row
	For emptyRow = Last To 2 Step - 1
		If Not Cells(emptyRow, 1).Value = "" Then
			Rows(emptyRow).Resize(1).Insert
			Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
		End If
	Next emptyRow
End Sub

Nodiadau: Yn y cod uchod:

1. Dylid cychwyn eich data o'r rhes gyntaf yn y daflen waith.
2. Newid testunau “Enw”, “Data” a “Sgôr” i'r testunau sydd eu hangen arnoch chi.
3. Mae'r llythyren A a C yn nodi'r ystod gell lle rydych chi am fewnosod y testun penodol.
4. Gwasgwch y F5 allwedd i redeg y cod. A gallwch weld bod y testunau penodedig yn cael eu hychwanegu ym mhob rhes yn eich taflen waith.

Mewnosodwch yr un testun ym mhob rhes arall gyda Kutools ar gyfer Excel

Gyda'r cod uchod, gallwch fewnosod testun ym mhob rhes yn unig. Beth am fewnosod testun ym mhob rhes yn Excel? Yn yr adran hon, byddwn yn dangos y Mewnosod rhesi Teitlau cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, ni fydd mewnosod testun ym mhob rhes yn broblem bellach.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Cliciwch Kutools > Mewnosod > Mewnosod Rhesi Teitlau i alluogi'r cyfleustodau hwn.

2. Yn y Mewnosod Rhesi Teitlau blwch deialog, mae angen i chi:

1). Dewiswch ystod y testunau rydych chi am eu mewnosod i bob rhes yn y Ystod teitl blwch;
2). Dewiswch yr ystod y mae angen i chi fewnosod testunau iddi yn y Mewnosod ystod blwch;
3). Nodwch rif y rhes egwyl yn y Rhesi cyfwng blwch. Os ydych chi am fewnosod testun ym mhob rhes, nodwch 1 yn y blwch, ac ar gyfer pob rhes, nodwch n yn y blwch;
4). Cliciwch y OK botwm.

Nawr mae'r testun penodedig wedi'i fewnosod ym mhob rhes yn yr ystod a ddewiswyd.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Offer Cynhyrchiant Swyddfa Gorau

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

tab kte 201905


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!
This comment was minimized by the moderator on the site
thanks you so much.
This comment was minimized by the moderator on the site
Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
This comment was minimized by the moderator on the site
Thank you, the code was exactly what I needed. One question, I have data that I want repeated every other row but only to specific rows then a new string of text starts that I want repeated. How to I change the code to reflect stopping the repeat at a specific row?
This comment was minimized by the moderator on the site
FOLLOW MY INSTRUCTION ON GOOGLE.COM
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations