Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að afrita raðir byggðar á gildum í dálki?

Til dæmis, ég er með fjölda gagna sem inniheldur lista yfir tölur í dálki D og nú vil ég afrita alla línurnar nokkrum sinnum miðað við tölugildin í dálki D til að fá eftirfarandi niðurstöðu. Hvernig gat ég afritað raðirnar oft á grundvelli frumgilda í Excel?

doc endurtekning raðir með klefi 1

Afritaðu raðir mörgum sinnum á grundvelli gilda í klefi með VBA kóða


ör blár hægri kúla Afritaðu raðir mörgum sinnum á grundvelli gilda í klefi með VBA kóða

Til að afrita og afrita alla raðirnar oft á grundvelli frumgildanna getur eftirfarandi VBA kóða hjálpað þér, vinsamlegast gerðu eftirfarandi:

1. Haltu niður ALT + F11 lyklar til að opna Microsoft Visual Basic fyrir forrit gluggi.

2. Smelltu Setja > Mát, og líma eftirfarandi kóða í Mát Gluggi.

VBA kóða: Afritaðu raðir mörgum sinnum á grundvelli frumgildis:

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. Ýttu síðan á F5 lykillinn að því að keyra þennan kóða, hafa allar línurnar verið endurteknar margar sinnum miðað við gildið í dálki D eins og þú þarft.

Athugaðu: Í ofangreindum kóða, stafurinn A gefur til kynna byrjunar dálk gagnasviðsins og bréfið D er dálkurinn sem þú vilt afrita raðirnar byggðar á. Vinsamlegast breyttu þeim eftir þörfum þínum.



Ráðlögð framleiðni verkfæri

Office flipi

gull star1 Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel

gull star1 Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!

gull star1 300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:

  • Sameina Cell / Rows / dálka án þess að tapa gögnum.
  • Sameina og sameina margar töflur og vinnubækur.
  • Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
  • Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
  • Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...

Skjár skot af Kutools fyrir 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!