Колачињата ни помогне да се испорача на нашите услуги. Преку употреба на нашите услуги, вие се согласувате со користење на cookies.
Совет: Други јазици се Google-преведени. Можете да ја посетите English верзија на оваа врска.
Логирај Се
x
or
x
x
Регистрирај се
x

or

Како да се дуплираат редовите врз основа на вредноста на ќелијата во колона?

На пример, имам голем број на податоци кои содржат листа на броеви во колона Д, и сега, сакам да ги повторувам целите редови неколку пати врз основа на нумеричките вредности во колона Д за да го добиете следниот резултат. Како можам да ги копирам редовите неколку пати врз основа на вредностите на ќелиите во Excel?

doc дуплирани редови по ќелија 1

Дупликат редови неколку пати врз основа на вредности на ќелии со VBA код


стрела сино десен меур Дупликат редови неколку пати врз основа на вредности на ќелии со VBA код

За да ги копирате и дуплирате целата редови повеќе пати врз основа на вредностите на ќелијата, следниот VBA код може да ви помогне, ве молиме направете го следново:

1. Држете го ALT + F11 клучеви за отворање на Microsoft Visual Basic за апликации прозорец.

2. Кликнете Вметнете > Модули, и внесете го следниов код во Модули Прозорец.

VBA код: дупликати редови повеќе пати врз основа на вредноста на ќелијата:

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. Потоа притиснете F5 клуч за извршување на овој код, целата редови се дуплираат неколку пати врз основа на вредноста на ќелијата во колона D, како што ви треба.

Забелешка: Во горниот код, писмото A ја означува почетната колона од опсегот на податоци и буквата D е колона писмо дека сакате да ги дуплирате редовите врз основа на. Ве молиме да ги промените на вашата потреба.



Препорачани алатки за продуктивност

Канцеларија јазиче

златна ѕвезда1 Донеси практични табулатори за Excel и друг канцелариски софтвер, исто како Хром, Firefox и нов Internet Explorer.

Kutools за Excel

златна ѕвезда1 Неверојатни! Зголемете ја вашата продуктивност во 5 минути. Не треба посебни вештини, освен два часа секој ден!

златна ѕвезда1 300 Нови функции за Excel, Направете Excel многу лесен и моќен:

  • Спој ќелии / редови / колони без губење на податоци.
  • Комбинирајте и консолидирајте повеќе листови и работни книги.
  • Споредете ги опсезите, копирајте ги повеќекратните граници, претворете го текстот во датум, единица и конверзија на валути.
  • Сметајте по бои, подредени страни, напредна сортирачка и супер филтер,
  • Повеќе Избери / Вметни / Избриши / Текст / Формат / Линк / Коментар / Учебник / Алатки за работни листови ...

Екран за Kutools за 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