Ինչպե՞ս տեղադրել Excel- ում ֆիքսված ընդմիջումներով տողերի որոշակի քանակ:
Excel- ի աշխատանքային թերթում դուք կարող եք դատարկ տող տեղադրել առկա տողերի միջեւ `օգտագործելով Տեղադրման գործառույթը: Բայց, եթե ունեք տվյալների մեծ տիրույթ, և յուրաքանչյուր երրորդ իններորդ շարքից հետո անհրաժեշտ է տեղադրել երկու դատարկ տող, ինչպե՞ս կարող եք արագ և հարմարավետ ավարտել այս գործը:
- Տեղադրեք որոշակի շարք դատարկ տողեր տվյալների տիրույթում VBA կոդով ֆիքսված ընդմիջումներով
- Տեղադրեք որոշակի շարք դատարկ տողեր տվյալների տիրույթում ՝ հիմնված բջջային արժեքների վրա ՝ VBA կոդով
- Տեղադրեք որոշակի շարք դատարկ տողեր տվյալների տիրույթում ֆիքսված ընդմիջումներով `հարմար գործառույթով
- VBA կոդով հատուկ թվերի հիման վրա բազմակի պատճենեք և տեղադրեք տողեր
- Copարմանալի առանձնահատկությամբ հատուկ թվերի հիման վրա բազմակի պատճենեք և տեղադրեք տողեր
Տեղադրեք որոշակի շարք դատարկ տողեր տվյալների տիրույթում VBA կոդով ֆիքսված ընդմիջումներով
Հաջորդ VBA կոդը կարող է օգնել գոյություն ունեցող տվյալների մեջ յուրաքանչյուր n-րդ տողից հետո տեղադրել որոշակի քանակի տողեր: Խնդրում ենք անել հետևյալը.
1, Պահեք պահեք ALT + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Ֆիքսված ընդմիջումներով տվյալների մեջ տեղադրեք տողերի որոշակի քանակ
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. Այս կոդը փակցնելուց հետո սեղմեք F5 Այս կոդն աշխատեցնելու բանալին դուրս կգա հուշման տուփ ՝ ձեզ հիշեցնելու համար ընտրելով տվյալների տիրույթը, որը ցանկանում եք տեղադրել դատարկ տողեր, տես նկարի նկարը.
4: Սեղմեք OK կոճակը, դուրս կգա մեկ այլ հուշում, խնդրում ենք մուտքագրել տողի միջակայքերի քանակը, տես նկարի նկարը.
5, Անցեք կտտացնելով OK կոճակը, հետևյալ դուրս եկած հուշման վանդակում մուտքագրեք դատարկ շարքերի քանակը, որոնք ցանկանում եք տեղադրել, տես նկարի նկարը.
6. Այնուհետեւ կտտացրեք OK, և դատարկ տողերը տեղադրվել են առկա տվյալների մեջ պարբերական ընդմիջումներով, տե՛ս սքրինշոթեր.
Տեղադրեք որոշակի շարք դատարկ տողեր տվյալների տիրույթում ՝ հիմնված բջջային արժեքների վրա ՝ VBA կոդով
Երբեմն կարող է անհրաժեշտ լինել տեղադրել դատարկ շարքերը ՝ հիմնվելով բջջային արժեքների ցուցակի վրա, այս դեպքում ստորև ներկայացված VBA կոդը կարող է ձեզ լավություն բերել, խնդրում ենք արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Թվերի ցուցակի հիման վրա տեղադրեք դատարկ շարքերի որոշակի քանակ.
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3, Այս կոդը տեղադրելուց հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղնը դուրս եկած երկխոսության դաշտում ընտրեք այն թվերի ցուցակը, որի հիման վրա ցանկանում եք տեղադրել դատարկ շարքեր, տես նկարի նկարը.
4, Դրանից հետո կտտացրեք OK, և դուք կստանաք անհրաժեշտ արդյունքներ, ինչպես ցույց են տրված հետևյալ նկարները.
Տեղադրեք որոշակի շարք դատարկ տողեր տվյալների տիրույթում ֆիքսված ընդմիջումներով `հարմար գործառույթով
Եթե ծանոթ չեք վերը նշված VBA կոդին, Excel- ի համար նախատեսված գործիքներ նույնպես կարող է օգնել ձեզ, իր Տեղադրեք դատարկ շարքեր և սյունակներ առանձնահատկությունը կարող է արագ և հեշտությամբ ֆիքսված ընդմիջումներով որոշակի թվով տողեր կամ սյուններ տեղադրել առկա տվյալների մեջ:
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք ընդմիջումներով տեղադրել դատարկ տողեր:
2: Սեղմեք Կուտոլս > Տեղադրել > Տեղադրեք դատարկ շարքեր և սյունակներ, տես նկարի նկարը.
3, Մեջ Տեղադրեք դատարկ շարքը և սյունակները երկխոսության վանդակում, ընտրեք Դատարկ շարքեր տարբերակը Տեղադրեք տիպը, ապա նշեք ընդմիջման և դատարկ շարքերի քանակը, որոնք ցանկանում եք օգտագործել որպես ցույց տրված հետևյալ նկարը.
4. Այնուհետեւ կտտացրեք OK կոճակը, և դատարկ տողերը տեղադրվել են ընտրված տիրույթի մեջ որոշակի ընդմիջումով, ինչպես ցույց է տրված հետևյալ նկարը.
Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:
VBA կոդով հատուկ թվերի հիման վրա բազմակի պատճենեք և տեղադրեք տողեր
Ենթադրելով, որ դուք ունեք tada- ի մի շարք, և այժմ դուք ցանկանում եք պատճենել յուրաքանչյուր տող և դրանք բազմիցս կպցնել հաջորդ շարքին ՝ հիմնվելով թվերի ցուցակի վրա, ինչպես ցույց է տրված ներքևում նշված սքրինշոթերը: Ինչպե՞ս կարող է լուծել այս խնդիրը Excel- ի աշխատանքային թերթում:
Այս գործով զբաղվելու համար ես ձեզ համար կներկայացնեմ օգտակար ծածկագիր, խնդրում եմ կատարել հետևյալ քայլերը.
1, Պահեք պահեք ALT + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Պատճենեք և տեղադրեք տողերը բազմակի անգամ ՝ հիմնվելով հատուկ թվերի վրա.
Sub CopyRows()
'UpdatebyExtendoffice
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 list of numbers to copy the rows based on: ", "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
3, Այս կոդը տեղադրելուց հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղնը հանված երկխոսության դաշտում ընտրեք այն թվերի ցանկը, որոնք ցանկանում եք պատճենել և տեղադրեք տվյալների շարքերը, որոնց հիման վրա տես նկարի նկարը.
4, Դրանից հետո կտտացրեք OK կոճակը, և տողերի որոշակի քանակը պատճենվել և տեղադրվել են յուրաքանչյուր սկզբնական շարքի տակ, տեսեք սքրինշոթերը.
Copարմանալի առանձնահատկությամբ հատուկ թվերի հիման վրա բազմակի պատճենեք և տեղադրեք տողեր
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա առանձնահատկությունը, դուք կարող եք արագ և հեշտությամբ ներդնել շարքերը կամ սյունակները ՝ հիմնվելով թվերի ցուցակի վրա:
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1: Սեղմեք Կուտոլս > Տեղադրել > Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա, տես նկարի նկարը.
2, Մեջ Պատճենեք և տեղադրեք տողերն ու սյունակները երկխոսության տուփ, ընտրեք Պատճենել և տեղադրել տողերը տարբերակը Տիպ բաժինը, ապա ընտրեք տվյալների տիրույթը, որը ցանկանում եք կրկնօրինակել, և այնուհետև նշեք այն արժեքների ցուցակը, որի վրա ցանկանում եք պատճենել տողերը, տես նկարի նկարը.
4, Դրանից հետո կտտացրեք Ok or Դիմել կոճակը, դուք կստանաք հետևյալ արդյունքը ՝ ըստ ձեզ:
Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:
Ավելի հարաբերական հոդվածներ.
- Պատճենել և զետեղել շարքի մի քանի անգամ կամ կրկնօրինակել շարքի X անգամ
- Ձեր ամենօրյա աշխատանքում երբևէ փորձե՞լ եք պատճենել տող կամ յուրաքանչյուր տող, այնուհետև մի քանի անգամ տեղադրել ընթացիկ տվյալների շարքում ներքևում աշխատաթերթում: Օրինակ, ես ունեմ մի շարք բջիջներ, այժմ ուզում եմ պատճենել յուրաքանչյուր տող և դրանք 3 անգամ կպցնել հաջորդ շարքում, ինչպես ցույց է տրված հետևյալ նկարը: Ինչպե՞ս կարող էիք գործ ունենալ Excel- ում:
- Տեղադրեք դատարկ տողեր, երբ արժեքը փոխվում է Excel- ում
- Ենթադրելով, որ դուք ունեք տվյալների մի շարք, և այժմ դուք ցանկանում եք դատարկ տողեր տեղադրել տվյալների միջև, երբ արժեքը փոխվում է, որպեսզի մեկ սյունակում բաժանեք հաջորդական նույն արժեքները, ինչպես ցույց են տրված հետևյալ նկարները: Այս հոդվածում ես կխոսեմ այս խնդրի լուծման համար ձեզ համար որոշ հնարքների մասին:
- Տեղադրեք դատարկ տող Excel- ում հատուկ տեքստից հետո
- Եթե ցանկանում եք ներմուծել դատարկ տողեր որոշակի տեքստից հետո, ինչպես ցույց է տրված սքրինշոթը ցույց տված հետևյալ նկարը, ապա ինչպե՞ս վարվել դրա հետ արագ և հեշտությամբ, առանց ձեռքով դրանք հատ առ հատ տեղադրելու:
- Պատճենել տողերը մի քանի աշխատանքային թերթերից ՝ հիմնվելով չափանիշների վրա ՝ նոր թերթի մեջ
- Ենթադրելով, դուք ունեք աշխատանքային գրքույկ երեք աշխատանքային թերթերով, որոնք ունեն նույն ձևաչափումը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը Այժմ ուզում եք պատճենել այս աշխատանքային թերթերից բոլոր տողերը, որոնք C սյունակում պարունակում են «Ավարտված» տեքստը նոր աշխատանքային թերթ: Ինչպե՞ս կարող եք արագ և հեշտությամբ լուծել այս խնդիրը ՝ առանց դրանց մեկ առ մեկ պատճենելու և տեղադրելու:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: