Ինչպե՞ս ջնջել Excel- ի որոշակի սյունակների բաց թողնված / դատարկ արժեքներով տողերը:

Որոշ դեպքերում կարող է անհրաժեշտ լինել ջնջել Excel- ի մի շարք բջիջներում բացակայող արժեք ունեցող կամ դատարկ բջիջ ունեցող ամբողջ շարքերը: Այս հոդվածը ձեզ ցույց կտա, թե ինչպես վարվել այս խնդրի հետ:

Deleteնջեք VBA կոդով որոշակի սյունակների բացակայող / դատարկ արժեքներով տողերը

---

Deleteնջեք VBA կոդով որոշակի սյունակների բացակայող / դատարկ արժեքներով տողերը

Ենթադրելով, որ ցանկանում եք ջնջել տողերը, եթե բացակայում է արժեքը B և D սյունակներում, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Դրան հասնելու համար կարող եք գործարկել հետևյալ VBA կոդը:

1. Մամուլ ալտ + F11 բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Deleteնջել տողերը բաց թողնված / դատարկ արժեքներով որոշակի սյունակներում

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

3. Մամուլ F5 ծածկագիրը գործելու համար: Հետո ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը հայտնվում է, խնդրում ենք ընտրել սյունակի տիրույթը, որը ցանկանում եք ստուգել բացակայող արժեքը գոյություն ունի, թե ոչ, ապա կտտացրեք այն OK կոճակը:

Հետո սեղմելով OK կոճակը, դուք կարող եք տեսնել, որ B և D սյուններում բացակայող արժեք ունեցող բոլոր շարքերը անմիջապես ջնջվում են: Տեսեք,

ՆշումԴուք չեք կարող ընտրել մի քանի տիրույթներ միաժամանակ աշխատելու համար: Եթե ​​բացակայող արժեքը գոյություն ունի բազմաթիվ սյունակներում, և ցանկանում եք ջնջել բոլոր տողերը, կարող եք կրկնել վերոհիշյալ 3-րդ քայլը մեկ սյունակից մյուսը:

---

---

Առնչվող հոդվածներ:

• Ինչպե՞ս ջնջել տողերը, եթե բջիջը Excel- ում որոշակի արժեքից մեծ է / պակաս:
• Ինչպե՞ս ջնջել բոլոր տողերը, բացառությամբ Excel- ի առաջին վերնագրի շարքի:
• Ինչպե՞ս ջնջել Excel- ում որոշակի շարքի կամ ակտիվ բջիջի տակ գտնվող բոլոր շարքերը: