Ինչպե՞ս ջնջել Excel- ում ակտիվ բջջի կամ հատուկ տեքստի վերևում գտնվող շարքերը:
Եթե կա մի շարք տողերով հսկայական աշխատանքային թերթ, և դուք պարզապես ցանկանում եք ջնջել բոլոր տողերը ակտիվ բջիջից կամ որոշակի տեքստից վեր, ինչպե՞ս կարող եք կարգավորել այն: Դուք կարող եք ջնջել տողերը ՝ ընտրելով դրանք, ապա աջ սեղմեք ՝ ձեռքով ընտրելու Deleteնջել համատեքստային ընտրացանկից: Բայց ահա, ես ունեմ VBA կոդեստո, որը վերացնում է վերևում շարքերը, եթե դա քեզ հետաքրքրում է, կարդա ստորև ներկայացված մանրամասնությունը:
Aboveնջեք վերևում շարքերը VBA կոդերով
Aboveնջեք վերևում շարքերը VBA կոդերով
Այստեղ ես ձեզ համար ներկայացնում եմ երկու VBA կոդ, մեկը ՝ ակտիվ (ընտրված բջիջից) վերևում գտնվող տողերը ջնջել, և մեկը ՝ նշված տեքստի վերևում շարքերը հեռացնելը:
1. Ընտրեք բջիջ, որը ցանկանում եք ջնջել դրա վերևում գտնվող շարքերը և սեղմել Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք կոդը ՝ Մոդուլներ սցենար:
VBA. Deleteնջեք ակտիվ բջիջի վերևում գտնվող շարքերը
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Մամուլ F5 ստեղնը, այնուհետև ակտիվ բջիջից վերև շարքերը հանվել են: Տեսեք,
Եթե ցանկանում եք ջնջել նշված տեքստի վերևում գտնվող շարքերը, կարող եք օգտագործել ներքևում նշված VBA- ն:
VBA. Deleteնջեք նշված տեքստի վերևում գտնվող շարքերը
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Նշում:
1. Կոդում, Ընդհանուր խումբ այն տեքստն է, որը ցանկանում եք գտնել, կարող եք փոխել այն, ինչ ձեզ հարկավոր է:
2. Եթե ձեր գտած տեքստը արդեն եղել է առաջին շարքում, ապա ձեզ հիշեցնելու է երկխոսություն:
3. Եթե ձեր գտած տեքստը թերթում գոյություն չունի, ձեզ հիշեցնելու համար կցուցադրվի երկխոսություն, ինչպես ցույց է տրված սքրինշոթը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: