Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ջնջել 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

 

փաստաթուղթը ջնջել 1-ից բարձր տողերը

3. Մամուլ F5 ստեղնը, այնուհետև ակտիվ բջիջից վերև շարքերը հանվել են: Տեսեք,
փաստաթուղթը ջնջել 2-ից բարձր տողերը

Եթե ​​ցանկանում եք ջնջել նշված տեքստի վերևում գտնվող շարքերը, կարող եք օգտագործել ներքևում նշված 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

փաստաթուղթը ջնջել 3-ից բարձր տողերը

Նշում:

1. Կոդում, Ընդհանուր խումբ այն տեքստն է, որը ցանկանում եք գտնել, կարող եք փոխել այն, ինչ ձեզ հարկավոր է:

2. Եթե ձեր գտած տեքստը արդեն եղել է առաջին շարքում, ապա ձեզ հիշեցնելու է երկխոսություն:
փաստաթուղթը ջնջել 4-ից բարձր տողերը

3. Եթե ձեր գտած տեքստը թերթում գոյություն չունի, ձեզ հիշեցնելու համար կցուցադրվի երկխոսություն, ինչպես ցույց է տրված սքրինշոթը:
փաստաթուղթը ջնջել 5-ից բարձր տողերը

 

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից