Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս կրկնօրինակել տողերը ՝ հիմնվելով սյունակում բջջային արժեքի վրա:

Օրինակ, ես ունեմ տվյալների մի շարք, որը պարունակում է թվերի ցուցակ D սյունակում, և այժմ ես ուզում եմ կրկնօրինակել ամբողջ շարքերը մի շարք անգամ `հիմնվելով D սյունակի թվային արժեքների վրա` հետևյալ արդյունքը ստանալու համար: Ինչպե՞ս կարող էի Excel- ում բջիջների արժեքների հիման վրա բազմիցս պատճենել տողերը:

VBA կոդով բջջային արժեքների հիման վրա բազմակի կրկնօրինակեք տողերը

Պատճենեք և տեղադրեք տողեր, որոնք հիմնված են որոշակի քանակությամբ անգամների վրա, հարմար գործիքով - Kutools Excel-ի համար


VBA կոդով բջջային արժեքների հիման վրա բազմակի կրկնօրինակեք տողերը

Բջջային արժեքների հիման վրա ամբողջ շարքերը բազմակի պատճենելու և կրկնօրինակելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Կրկնօրինակ տողեր բազմիցս `ելնելով բջջային արժեքից.

Sub CopyData()
'Updateby Extendoffice
    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 սյունակի նամակն է, որի հիման վրա ցանկանում եք կրկնօրինակել տողերը: Խնդրում եմ դրանք փոխեք ձեր կարիքի:

Պատճենեք և տեղադրեք տողեր, որոնք հիմնված են որոշակի քանակությամբ անգամների վրա, հարմար գործիքով - Kutools Excel-ի համար

Եթե ​​դուք ծանոթ չեք VBA կոդին և չեք կարող ինքնուրույն փոխել կոդի պարամետրերը ճիշտ: Այս դեպքում, որ Excel- ի համար նախատեսված գործիքներ's Կրկնվող տողեր / սյունակներ՝ հիմնված բջջային արժեքի վրա հատկությունը կարող է օգնել ձեզ պատճենել և տեղադրել տողեր մի քանի անգամ՝ հիմնվելով բջիջների արժեքների վրա՝ ընդամենը երեք կտտոցով:

TipsՍա կիրառելու համար Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա հատկանիշը, դուք պետք է ներբեռնեք Kutools-ը Excel-ի համար առաջին.
  1. Սեղմել Կուտոլս > Տեղադրել > Կրկնվող տողեր/սյունակներ՝ հիմնված բջջային արժեքի վրա միացնել այս հնարավորությունը;
  2. Այնուհետեւ ընտրեք Պատճենել և տեղադրել տողերը տարբերակ, և նշեք the-ի բջիջները Տեղադրեք տիրույթը և Կրկնել Times առանձին երկխոսության վանդակում:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (41)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi All,
Can anyone give me the code to copy whole table at the same time?.
This comment was minimized by the moderator on the site
Hello, Aparna,
Maybe the following article can help you.
https://www.extendoffice.com/documents/excel/3682-excel-copy-and-insert-row-multiple-times.html#a2
Please view it, if you have any other problem, please comment here.
This comment was minimized by the moderator on the site
Is there any way to get this to work on a shared workbook? it works perfectly until I share the workbook then i get "insert method of range class failed"
This comment was minimized by the moderator on the site
Bonjour,
Merci pour ce code qui fonctionne bien.
Par contre dans mon tableau j'ai une date pour chaque ligne:
J'aimerai qu'elle s'incrémente au fur et à mesure des duplications de lignes et en automatique, car il y a plus de 1000 dossiers différents.

N° dossier Date Nb de jours
2101007 29/01/2021 49
2110002 11/10/2021 22
2008006 31/08/2020 132

pour donner:
N° dossier Date Nb de jours
2101007 29/01/2021 49
2101007 30/01/2021 49
...

Est-ce possible ?
Merci par avance.
This comment was minimized by the moderator on the site
Thank you so much for this!
This comment was minimized by the moderator on the site
What if I wanted to do the above (nice job btw) but what if I wanted to change the dates by “X” days when I add the rows? Like a reoccurring event in a calendar. 
This comment was minimized by the moderator on the site
This is PERFECTION! Short Sweet and to the point as well as easily adaptable!
THANK YOU!
This comment was minimized by the moderator on the site

this is wondeful thank you so much
This comment was minimized by the moderator on the site
I tried running it by pressing F5 and a pop up message below:
"Compile Error:Sub or function not defined."
What am I doing wrong? I adjusted column A and changed A & D as needed.
This comment was minimized by the moderator on the site
Hi, this does not work for me. I copy the code, change the column letter D to the column letter that I want to duplicate rows based upon, and... nothing happens when I run the code. I have enabled macros and tried on two different computers. What am I doing wrong?
This comment was minimized by the moderator on the site
Hi, Sean,
Note: In the above code, the letter A indicates the start column of your data range, and the letter D is the column letter that you want to duplicate the rows based on. Please change them to your need.
Have you adjust the column A of your data? please check it, thank you!

This comment was minimized by the moderator on the site
Is it possible to adjust the code to create a new sheet, keeping the original sheet untouched?
This comment was minimized by the moderator on the site
Hello,If you want to keep your original data, please copy and paste the data into another new sheet, and then apply the code as you need.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations