Sut i ddyblygu rhesi yn seiliedig ar werth celloedd mewn colofn?
Er enghraifft, mae gen i ystod o ddata sy'n cynnwys rhestr o rifau yng ngholofn D, a nawr, rydw i eisiau dyblygu'r rhesi cyfan nifer o weithiau yn seiliedig ar y gwerthoedd rhifol yng ngholofn D i gael y canlyniad canlynol. Sut allwn i gopïo'r rhesi sawl gwaith yn seiliedig ar werthoedd y celloedd yn Excel?
 |
 |
 |
Rhesi dyblyg sawl gwaith yn seiliedig ar werthoedd celloedd gyda chod VBA
Rhesi dyblyg sawl gwaith yn seiliedig ar werthoedd celloedd gyda chod VBA
I gopïo a dyblygu'r rhesi cyfan sawl gwaith yn seiliedig ar werthoedd y celloedd, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Rhesi dyblyg sawl gwaith yn seiliedig ar werth celloedd:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r rhesi cyfan wedi'u dyblygu sawl gwaith yn seiliedig ar werth y gell yng ngholofn D yn ôl yr angen.
Copïwch a mewnosodwch resi yn seiliedig ar nifer penodol o weithiau gydag offeryn defnyddiol - Kutools for Excel
Os nad ydych chi'n gyfarwydd â'r cod VBA ac yn methu â newid y paramedrau yn y cod yn gywir ar eich pen eich hun. Yn yr achos hwn, y Kutools for Excel's Rhesi / Colofnau Dyblyg yn Seiliedig ar Werth Cell Gall nodwedd eich helpu i gopïo a mewnosod rhesi sawl gwaith yn seiliedig ar werthoedd y gell gyda dim ond tri chlic.
- Cliciwch Kutools > Mewnosod > Rhesi/Colofnau Dyblyg yn seiliedig ar Werth Cell i alluogi'r nodwedd hon;
- Yna, dewiswch Copïo a mewnosod rhesi opsiwn, a nodi celloedd y Mewnosod Ystod ac Ailadroddwch Amseroedd ar wahân yn y blwch deialog.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
