Ինչպե՞ս ջնջել նույն շարքերը կամ միջակայքերը Excel- ի բազմաթիվ թերթերի միջև:
Այս հոդվածը խորհուրդ է տալիս Excel- ում միաժամանակ մի քանի տողերի կամ տիրույթների ջնջման երկու մեթոդ: Խնդրում եմ արեք հետևյալ կերպ.
Deleteնջեք նույն շարքերը կամ միջակայքերը բազմաթիվ թերթերի միջև ՝ բոլոր թերթերը խմբավորելով
BAնջեք նույն տողերը կամ միջակայքերը բազմաթիվ VBA կոդերով բազմաթիվ թերթերի միջև
Deleteնջեք նույն շարքերը կամ միջակայքերը բազմաթիվ թերթերի միջև ՝ բոլոր թերթերը խմբավորելով
Հեշտ է խմբավորել բոլոր աշխատանքային թերթերը, այնուհետև միաժամանակ ջնջել նույն շարքերը կամ միջակայքերը այս աշխատանքային թերթերից:
1. Ընթացիկ աշխատանքային գրքում աջ կտտացրեք ցանկացած թերթիկի ներդիրին, այնուհետև կտտացրեք Ընտրեք բոլոր թերթերը աջ կտտացնելու ցանկից:
2. Այժմ ընտրված են բոլոր աշխատանքային թերթերը, եթե աշխատանքային էջում ջնջում եք որոշակի տողեր կամ տիրույթներ, ապա նույն շարքերը կամ միջակայքերը այլ թերթերում միասին ջնջվում են:
3. Բոլոր թերթերի տողերը կամ միջակայքերը ջնջելուց հետո խնդրում ենք աջ սեղմել թերթիկի ներդիրի վրա և այնուհետև կտտացնել Խմբավորել թերթերը աջ կտտացնելու ցանկից ՝ բոլոր աշխատանքային թերթերը խմբավորելու համար:
BAնջեք նույն տողերը կամ միջակայքերը բազմաթիվ VBA կոդերով բազմաթիվ թերթերի միջև
Բացի վերոնշյալ մեթոդից, կարող եք գործարկել հետևյալ VBA կոդերը ՝ մի շարք տողերը կամ տիրույթները բազմաթիվ աշխատանքային թերթերում ջնջելու համար:
Sameնջել նույն տողերը բազմաթիվ թերթերի միջով
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք հետևյալ VBA կոդը օրենսգրքի պատուհանում:
VBA կոդ. Excel- ում ջնջեք նույն տողերը բազմաթիվ թերթերի միջև
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End Sub
ՆշումVBA կոդում 4: 5-ը նշանակում է, որ 4-րդ և 5-րդ տողը կջնջվի ընթացիկ աշխատանքային գրքում առկա բազմաթիվ թերթերի միջև: Կարող եք դրանք փոխել ձեր անհրաժեշտ շարքում:
3. Մամուլ F5 կոդը գործարկելու բանալին, ապա նշված տողերը անմիջապես ջնջվում են ընթացիկ աշխատանքային գրքի բոլոր թերթերից:
Rangesնջել նույն տիրույթները մի քանի թերթերի միջև
Բազմաթիվ թերթերում նույն տիրույթները ջնջելու համար կարող եք փորձել ստորև նշված VBA կոդը:
VBA կոդ. Deleteնջել նույն տիրույթը բազմաթիվ թերթերի միջև
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End Sub
VBA կոդը Մոդուլում պատճենելուց և տեղադրելուց հետո սեղմեք F5 կոդը գործարկելու բանալին և ելնող պատուհանում Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք այն տիրույթը, որը կջնջեք բազմաթիվ թերթերի միջև, ապա կտտացրեք այն OK կոճակը:
Այժմ այս հատուկ տիրույթի բջիջների արժեքները անմիջապես ջնջվում են ընթացիկ աշխատանքային գրքի բոլոր թերթերից:
Առնչվող հոդվածներ:
- Ինչպե՞ս ջնջել Excel- ի որոշակի սյունակների բաց թողնված / դատարկ արժեքներով տողերը:
- Ինչպե՞ս ջնջել տողերը, եթե բջիջը Excel- ում որոշակի արժեքից մեծ է / պակաս:
- Ինչպե՞ս ջնջել բոլոր տողերը, բացառությամբ Excel- ի առաջին վերնագրի շարքի:
- Ինչպե՞ս ջնջել Excel- ում որոշակի շարքի կամ ակտիվ բջիջի տակ գտնվող բոլոր շարքերը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: