Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ջնջել Excel- ում բացասական արժեքներ ունեցող շարքերը:

Ենթադրենք, որ դուք ունեք տվյալների հետևյալ շարքը և ցանկանում եք ջնջել ամբողջ տողերը, եթե B սյունակում թիվը բացասական է, Excel- ում այս խնդիրը լուծելու լավ մեթոդներ կա՞ն:

doc ջնջել բացասական 1-ով 2 doc ջնջել բացասական 2-ով

Negativeնջեք բացասական թվերով շարքերը ՝ օգտագործելով VBA կոդ

Deleteնջեք բացասական թվերով շարքերը ՝ օգտագործելով Kutools Excel– ի համար


նետ կապույտ աջ պղպջակ Negativeնջեք բացասական թվերով շարքերը ՝ օգտագործելով VBA կոդ

Հաջորդ VBA կոդը կարող է օգնել ձեզ ջնջել ամբողջ շարքերը, եթե որոշակի սյունակում կան բացասական թվեր, արեք հետևյալը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Deleteնջել բացասական թվերով շարքերը

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. Եվ հետո սեղմեք F5 Այս կոդը կատարելու համար բանալին, հուշման վանդակում, ընտրեք համարի սյունակը, որից ուզում եք գտնել բացասական թվերը, տես նկարի նկարը.

doc ջնջել բացասական 3-ով

4. Այնուհետեւ կտտացրեք OK կոճակը, բացասական թվերով տողերը միանգամից ջնջվել են:


նետ կապույտ աջ պղպջակ Deleteնջեք բացասական թվերով շարքերը ՝ օգտագործելով Kutools Excel– ի համար

Համար կարգավորել այս աշխատանքը, Excel- ի համար նախատեսված գործիքներ'S Ընտրեք հատուկ բջիջներ հատկությունը նաև կարող է լավություն առաջացնել, այս օգտակար ծառայության միջոցով նախ կարող եք ընտրել բացասական արժեքները պարունակող ամբողջ շարքերը, այնուհետև ջնջել ամբողջ շարքերը ՝ ըստ ձեզ:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Ընտրեք սյունը պարունակում է բացասական թվեր, որոնք ցանկանում եք ջնջել:

2. Այնուհետեւ կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, տես նկարի նկարը.

3, Մեջ Ընտրեք հատուկ բջիջներ երկխոսության տուփ, ընտրեք Ամբողջ շարքը տարբերակը Ընտրության տեսակըեւ ապա ընտրեք Պակաս - ից Հատուկ տեսակ եւ մուտքագրեք 0 չափանիշների կողքին տեքստի վանդակում տե՛ս նկարը.

doc ջնջել բացասական 5-ով

4. Այնուհետեւ կտտացրեք Ok, բացասական թվեր պարունակող շարքերը միանգամից ընտրվել են, ապա կտտացնել Գլխավոր > ջնջել > Deleteնջել թերթի շարքերը ընտրված շարքերը ըստ անհրաժեշտության ջնջելու համար տե՛ս սքրինշոթեր.

doc ջնջել բացասական 6-ով 2 doc ջնջել բացասական 7-ով

TipsSelect Կարող եք նաև աջ սեղմել ՝ ընտրելու համար ջնջել համատեքստային ընտրացանկից ընտրված տողերը ջնջելու համար:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for the delete function .. works great .. must be numeric field not just - regards
This comment was minimized by the moderator on the site
Thanks for this!

Is there a way of doing this with positive values too?
This comment was minimized by the moderator on the site
Hi, Jon,
To remove rows with positive values, you just need to apply the following code, please try.
Sub Deleter()
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) > 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations