Ինչպե՞ս ջնջել 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. Եթե ձեր գտած տեքստը թերթում գոյություն չունի, ձեզ հիշեցնելու համար կցուցադրվի երկխոսություն, ինչպես ցույց է տրված սքրինշոթը: