Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

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, ac yn awr, rwyf am ddyblygu'r rhesi cyfan sawl gwaith yn seiliedig ar y gwerthoedd rhifol yng ngholofn D i gael y canlyniad canlynol. Sut alla i gopïo'r rhesi sawl gwaith yn seiliedig ar y gwerthoedd celloedd yn Excel?

doc rhesi dyblyg gan gell 1

Rhoi rhesi dyblyg ar sawl gwaith yn seiliedig ar werthoedd celloedd gyda chod VBA


swigod saeth cywir glas Rhoi rhesi dyblyg ar 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. Dal 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 20160922
    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 allwedd i redeg y cod hwn, mae'r rhesi cyfan wedi'u dyblygu sawl gwaith yn seiliedig ar y gwerth celloedd yng ngholofn D fel y mae ei angen arnoch.

Nodyn: Yn y cod uchod, y llythyr A yn nodi colofn dechrau eich ystod data, a'r llythyr D yw'r llythyr colofn yr ydych am ei dyblygu yn y rhesi yn seiliedig ar. Newidwch nhw i'ch angen.



Offer Cynhyrchiant a Argymhellir

Tab Swyddfa

star1 aur Dewch â thafiau defnyddiol i Excel a meddalwedd Swyddfa eraill, yn union fel Chrome, Firefox a Internet Explorer newydd.

Kutools ar gyfer Excel

star1 aur Yn rhyfeddol! Cynyddu eich cynhyrchedd mewn munudau 5. Peidiwch ag angen unrhyw sgiliau arbennig, arbed dwy awr bob dydd!

star1 aur 300 Nodweddion Newydd ar gyfer Excel, Gwnewch Excel Yn Fach Hawdd a Phwerus:

  • Cyfuno Cell / Rows / Colofnau heb Colli Data.
  • Cyfuno a Chyfuno Taflenni Lluosog a Llyfrau Gwaith.
  • Cymharwch Rangau, Copi Lluosog, Trosi Testun hyd yma, Uned ac Addasu Arian.
  • Count by Colors, Subtotals Paging, Trefnu Uwch ac Uwch Hidlo,
  • Mwy Dethol / Mewnosod / Delete / Text / Format / Link / Comment / Llyfrau Gwaith / Taflenni Gwaith Offer ...

Sgrîn sgript o Kutools ar gyfer Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ISRA · 29 days ago
    there is any way we can add to eache repeated cell, a consecutive caracters? example
    KTE+0001

    KTE+0002
  • To post as a guest, your comment is unpublished.
    KAS · 2 months ago
    Is there a way to update the module to only duplicate new data? I'm working on an ongoing document and do not want the code to duplicate data that has been previously duplicated.
  • To post as a guest, your comment is unpublished.
    Gerardo Enrique Heras Araujo · 3 months ago
    hi, for me is no working, I want to remove letters and number duplicate is possible?
  • To post as a guest, your comment is unpublished.
    Naomi · 3 months ago
    This script seems to be exactly what I need, however, when I run it I am getting an error on the line Selection.Insert Shift:=x1Down

    Any suggestions on how I fix this?
  • To post as a guest, your comment is unpublished.
    Manuel F · 3 months ago
    Thanks! it has been a great solution for all my troubles!