Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako duplicirati retke na temelju vrijednosti ćelije u stupcu?

Na primjer, imam niz podataka koji sadrže popis brojeva u stupcu D, a sada, želim duplicirati cijeli niz nekoliko puta na temelju numeričkih vrijednosti u stupcu D kako bismo dobili sljedeći rezultat. Kako mogu kopirati redove više puta na temelju vrijednosti ćelije u programu Excel?

doc duplicirati redaka po ćeliji 1

Dvostruki redovi više puta na temelju vrijednosti ćelije s VBA kodom


strelica plava desna mjehurić Dvostruki redovi više puta na temelju vrijednosti ćelije s VBA kodom

Da biste kopirali i duplicirali cijeli red više puta na temelju vrijednosti ćelije, sljedeći VBA kôd vam može pomoći, molimo Vas da to učinite:

1, Držite pritisnuto ALT + F11 tipke za otvaranje Microsoft Visual Basic for Applications prozor.

2, Klik umetak > Moduli, i zalijepite sljedeći kod u Moduli Prozor.

VBA kôd: dvostruki redovi više puta na temelju vrijednosti ćelije:

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, Zatim pritisnite F5 ključ za pokretanje ovog koda, cijeli redovi su duplicirani više puta na temelju vrijednosti ćelije u stupcu D koliko vam je potrebno.

bilješke: U gornjem kodu, pismo A označava početni stupac vašeg raspona podataka i slovo D je slovo u stupcu koje želite duplicirati redaka na temelju. Promijenite ih prema vašoj potrebi.



Preporučeni alati za produktivnost

Kartica sustava Office

zlato star1 Donesite praktične kartice u program Excel i drugi Office, kao što su Chrome, Firefox i novi Internet Explorer.

Kutools za Excel

zlato star1 Nevjerojatno! Povećajte produktivnost u 5 minuta. Ne trebaju nikakve posebne vještine, osim dva sata svaki dan!

zlato star1 300 nove značajke za Excel, izraditi Excel mnogo jednostavan i snažan:

  • Spoji ćeliju / retke / stupce bez gubitka podataka.
  • Kombinirajte i konsolidirajte više tablica i radnih knjiga.
  • Usporedba raspona, kopiranje više raspona, pretvaranje teksta na datum, jedinica i pretvorba valuta.
  • Count po bojama, Paging Subtotal, Advanced Sort i Super Filter,
  • Više Odabir / umetanje / brisanje / tekst / oblikovanje / veza / komentar / radne knjige / alati za radne listove ...

Screen shot tvrtke Kutools za 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 · 26 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!