Ինչպե՞ս կրկնօրինակել տողերը ՝ հիմնվելով սյունակում բջջային արժեքի վրա:
Օրինակ, ես ունեմ տվյալների մի շարք, որը պարունակում է թվերի ցուցակ D սյունակում, և այժմ ես ուզում եմ կրկնօրինակել ամբողջ շարքերը մի շարք անգամ `հիմնվելով D սյունակի թվային արժեքների վրա` հետևյալ արդյունքը ստանալու համար: Ինչպե՞ս կարող էի Excel- ում բջիջների արժեքների հիման վրա բազմիցս պատճենել տողերը:
 |
 |
 |
VBA կոդով բջջային արժեքների հիման վրա բազմակի կրկնօրինակեք տողերը
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 սյունակում գտնվող բջջային արժեքի վրա, որքան անհրաժեշտ է:
Պատճենեք և տեղադրեք տողեր, որոնք հիմնված են որոշակի քանակությամբ անգամների վրա, հարմար գործիքով - Kutools Excel-ի համար
Եթե դուք ծանոթ չեք VBA կոդին և չեք կարող ինքնուրույն փոխել կոդի պարամետրերը ճիշտ: Այս դեպքում, որ Excel- ի համար նախատեսված գործիքներ's Կրկնվող տողեր / սյունակներ՝ հիմնված բջջային արժեքի վրա հատկությունը կարող է օգնել ձեզ պատճենել և տեղադրել տողեր մի քանի անգամ՝ հիմնվելով բջիջների արժեքների վրա՝ ընդամենը երեք կտտոցով:
- Սեղմել Կուտոլս > Տեղադրել > Կրկնվող տողեր/սյունակներ՝ հիմնված բջջային արժեքի վրա միացնել այս հնարավորությունը;
- Այնուհետեւ ընտրեք Պատճենել և տեղադրել տողերը տարբերակ, և նշեք the-ի բջիջները Տեղադրեք տիրույթը և Կրկնել Times առանձին երկխոսության վանդակում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
