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

Excel- ում մեկ այլ սյունակի հիման վրա ինչպե՞ս կրկնել տողերը նշված թվով անգամ:

Երբևէ փորձե՞լ եք կրկնել շարքը `հիմնվելով մեկ այլ սյունակի արժեքի վրա, ինչպես ցույց է տրված նկարում: Այս հոդվածում ես կներկայացնեմ Excel- ում այս աշխատանքը լուծելու մեթոդը:
doc կրկնող տողերը `հիմնված 1 սյունակի վրա

Կրկնեք շարքերը `հիմնվելով VBA- ի մեկ այլ սյունակի արժեքի վրա

Կրկնել տողերը՝ հիմնված մեկ այլ սյունակի արժեքի վրա Kutools-ի համար Excel-ի համար

Կրկնեք տողերը ֆիքսված ժամանակով Kutools- ի կողմից Excel- ի համար


Կրկնեք շարքերը `հիմնվելով VBA- ի մեկ այլ սյունակի արժեքի վրա

Այստեղ ես ունեմ մի ծածկագիր, որը կարող է արագորեն կրկնել շարքերը ՝ հիմնվելով սյունակի վերջին արժեքների վրա:

1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք ներքևի կոդը և կպցրեք այն նորին Մոդուլներ սցենար:

VBA. Կրկնել շարքերը ՝ հիմնվելով սյունակի մեկ այլ արժեքի վրա

Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
    MsgBox "Please select single column!"
    GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
    xRN = CInt(xCRg.Value)
    With Rows(xCRg.Row)
    .Copy
    .Resize(xRN).Insert
    End With
Next
Application.ScreenUpdating = True
End Sub

doc կրկնող տողերը `հիմնված 2 սյունակի վրա

3. Մամուլ F5 ստեղն, դուրս է գալիս երկխոսություն, ընտրեք համարների ցուցակը, որի վրա շարքերը կկրկնվեն:
doc կրկնող տողերը `հիմնված 3 սյունակի վրա

4. Սեղմեք OK, տողերը կրկնվել են ՝ ընտրված սյունակի արժեքի հիման վրա:
doc կրկնող տողերը `հիմնված 1 սյունակի վրա


Կրկնել տողերը՝ հիմնված մեկ այլ սյունակի արժեքի վրա Kutools-ի համար Excel-ի համար

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

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

1: սեղմեք Կուտոլս > Տեղադրել > Կրկնվող տողեր/սյունակներ՝ հիմնված բջջային արժեքի վրա.
doc կրկնել տողերը ֆիքսված ժամանակ 1

2. Բացվող պատուհանում ընտրեք Պատճենել և տեղադրել տողերը տարբերակը Տիպ բաժինը, ապա ընտրեք այն տիրույթը, որին ցանկանում եք կրկնել Տեղադրեք Range textbox, և ընտրեք այն սյունակը, որը որոշում է կրկնությունների ժամանակները Կրկնել Times տեքստային տուփ: Սեղմել Ok.
doc կրկնել տողերը ֆիքսված ժամանակ 1

Այնուհետև տողերը կկրկնվեն ընտրված սյունակով:
doc կրկնել տողերը ֆիքսված ժամանակ 1


Կրկնեք տողերը ֆիքսված ժամանակով Kutools- ի կողմից Excel- ի համար

Եթե ​​ցանկանում եք տողերը կրկնել ֆիքսված ժամանակով, առանց տողերը հատ առ հատ տեղադրելու, կարող եք փորձել օգտագործել այն Տեղադրեք դատարկ շարքեր և սյունակներ և Լրացրեք դատարկ բջիջները կոմունալ ծառայություններ Excel- ի համար նախատեսված գործիքներ արագ կարգավորել այս գործը:
doc կրկնել տողերը ֆիքսված ժամանակ 1

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ընտրեք տվյալների տիրույթը, որը ցանկանում եք կրկնել տողերը, կտտացրեք Կուտոլս > Տեղադրել > Տեղադրեք դատարկ շարքեր և սյունակներ. Այնուհետեւ Տեղադրեք դատարկ շարքեր և սյունակներ երկխոսություն, ստուգում Դատարկ շարքեր տարբերակ, ապա մուտքագրեք 1 մեջ Ընդմիջում of տեքստային տուփ և մուտքագրեք համարը, որի մեջ ցանկանում եք կրկնել շարքերը Rows տեքստային տուփ:
doc կրկնել տողերը ֆիքսված ժամանակ 2

2: սեղմեք Ok, դատարկ տողերը տեղադրվել են յուրաքանչյուր շարքի տակ:
doc կրկնել տողերը ֆիքսված ժամանակ 3

3. Շարքը ընտրված պահեք, կտտացրեք Կուտոլս > Տեղադրել > Լրացրեք դատարկ բջիջները, Մեջ Լրացրեք դատարկ բջիջները երկխոսություն, ստուգում Հիմնվելով արժեքների վրա և Down տարբերակները.
doc կրկնել տողերը ֆիքսված ժամանակ 4

4: սեղմեք Ok, Այժմ դատարկ բջիջները լրացվել են վերը նշված արժեքով:
doc կրկնել տողերը ֆիքսված ժամանակ 5

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

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

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

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Update on my previous comment. It looks like it's not happening everytime but I can't see why some rows are working as expected and others aren't.
This comment was minimized by the moderator on the site
Hi, Megan Brennan, could you show me what rows the feature won't work at?
This comment was minimized by the moderator on the site
Hi there,

I've just tried the Repeat rows based on another column value by Kutools for Excel functionality and it seems to be squaring the (repeat value + 1).

For example if I have a repeat value for a row as 2, then it repeats that row another 8 times to make a total of 9 rows of the same data.
If I have a repeat value of 4, then it repeats that row for another 24 times to make a total of 25 rows of the same data.

So repeat value of 1 -> Total 4 rows -> Should be total of 2
2 -> Total 9 rows -> Should be total of 3
3 -> Total 16 rows -> Should be total of 4
4 -> Total 25 rows -> Should be total of 5
7 -> Total 64 rows -> Should be total of 8
This comment was minimized by the moderator on the site
Hi, how to move the repeated output to the side of the original data?
This comment was minimized by the moderator on the site
Hi,yiyun zhu, you can make a copy of the original data, then use above method to handle the copy one, and keep the original data .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations