Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā dublēt rindas, pamatojoties uz šūnu vērtību slejā?

Piemēram, man ir virkne datu, kas satur D slejā esošo skaitļu sarakstu, un tagad, lai iegūtu sekojošu rezultātu, es vēlos dublēt visas rindas vairākas reizes, pamatojoties uz skaitļa vērtībām D slejā. Kā es varu kopēt rindas vairākas reizes, pamatojoties uz Excel vērtībām šūnu vērtībām?

doc dublikāta rindas pēc šūnas 1

Dublēt rindas vairākas reizes, pamatojoties uz šūnu vērtībām ar VBA kodu


bultiņa zils labais burbulis Dublēt rindas vairākas reizes, pamatojoties uz šūnu vērtībām ar VBA kodu

Lai kopētu un dublētu visas rindas vairākas reizes, pamatojoties uz šūnu vērtībām, var jums palīdzēt šāds VBA kods, lūdzu, rīkojieties šādi:

1. Turiet nospiestu ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Noklikšķiniet ielaidums > Moduļiun ielīmējiet tālāk norādīto kodu Moduļi Logu

VBA kods: atkārtoti rindas vairākas reizes, pamatojoties uz šūnas vērtību:

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. Tad nospiediet F5 lai palaistu šo kodu, visas rindas tika dublēti vairākas reizes, balstoties uz šūnu vērtību D slejā, ja jums nepieciešams.

Piezīmes: Iepriekš minētajā kodā - burts A Norāda jūsu datu diapazona sākuma kolonnu un burtu D ir kolonnas vēstule, kurai vēlaties dublēt rindas, pamatojoties uz. Lūdzu, mainiet to pēc vajadzības.



Ieteicamie produktivitātes rīki

Cilnē Office

zelta zvaigzne1 Novietojiet parocīgas cilnes Excel un citai Office programmatūrai, tāpat kā Chrome, Firefox un jaunā Internet Explorer.

Kutools Excel

zelta zvaigzne1 Pārsteidzošs! Palieliniet savu produktivitāti 5 minūtēs. Nepieciešamas īpašas prasmes, izņemot katru dienu divas stundas!

zelta zvaigzne1 300 jaunas funkcijas Excel, Make Excel daudz viegli un jaudīgu:

  • Apvienot šūnu / rindas / kolonnas, nezaudējot datus.
  • Apvienot un konsolidēt vairākas lapas un darbgrāmatas.
  • Salīdziniet diapazonus, kopējiet vairākus diapazonus, pārveidojiet tekstu uz datumu, vienību un valūtas konvertēšanu.
  • Count by Colors, Paging Starpsvars, Advanced Kārtot un Super Filter,
  • Vairāk Izvēlēties / Ievietot / Dzēst / Teksts / Format / Saite / Komentārs / Darbgrāmatas / Darblapas Rīki ...

Kutools ekrānuzņēmums 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.
    KAS · 1 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 · 2 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 · 2 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 · 2 months ago
    Thanks! it has been a great solution for all my troubles!
  • To post as a guest, your comment is unpublished.
    Leah · 3 months ago
    Hello, this worked great. However, I have a report with 1000 entries and the code stopped duplicating around entry 480. Is there something that I can add so that it completes the action on the entire report?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Leah,
      I have tested the code in 2000 rows, and it works well.
      Could you send your worksheet to me for testing the code?
      My email address is skyyang@extendoffice.com
      Look forward to your reply!
      • To post as a guest, your comment is unpublished.
        Leah · 3 months ago
        Hello! I got it to work. It was an error on my side, the report had a few blank rows that were hidden that were causing the script to stop looping. It worked for my report with 8,000 rows! Thank youQ