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

or

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

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

доц дуплицате редова по ћелији КСНУМКС

Дупликате редова више пута засноване на вриједностима ћелија са ВБА кодом


стрелица плави десни балон Дупликате редова више пута засноване на вриједностима ћелија са ВБА кодом

Да бисте копирали и дуплирали читаве редове више пута на основу вредности ћелије, сљедећи ВБА код вам може помоћи, молимо вас да урадите овако:

1. Држите га АЛТ + ФКСНУМКС тастере за отварање Мицрософт Висуал Басиц за апликације прозор.

2. Клик Убацити > Модули, и налепите следећи код у Модули Прозор.

ВБА код: Дуплирати редове више пута засноване на вредности ћелије:

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 кључ за покретање овог кода, читави редови су дуплирани више пута на основу вредности ћелије у колони Д, колико вам је потребно.

белешке: У горњем шифри, писмо A означава почетну колону вашег опсега података и слово D је писмо колоне на коме желите да дуплирате редове на основу. Промените их на своју потребу.



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

Оффице Таб

златна звездаКСНУМКС Дајте практичне картице у Екцел и други Оффице програм, баш као и Цхроме, Фирефок и нови Интернет Екплорер.

Кутоолс за Екцел

златна звездаКСНУМКС Невероватно! Повећајте продуктивност у КСНУМКС минуту. Не требају никакве посебне вјештине, осим два сата сваког дана!

златна звездаКСНУМКС КСНУМКС Нове функције за Екцел, учините Екцел пуно једноставно и моћно:

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

Сцреен схот оф Кутоолс за Екцел

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