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:
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:
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
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!