मानदंड के आधार पर Excel कॉलम हटाने के 8 VBA मैक्रो - तेज़ और सुरक्षित

VBA मैक्रो लागू करना Excel में किसी भी ऑपरेशन को चलाने का सबसे प्रभावी, तेज़ और सुरक्षित तरीका है। इस लेख में, हम आपको दिखाएंगे कि VBA मैक्रो के साथ मानदंड के आधार पर Excel में कॉलम कैसे हटाएं।

कार्यपुस्तिका डाउनलोड करें

आप यहाँ से मुफ्त अभ्यास Excel कार्यपुस्तिका डाउनलोड कर सकते हैं।

सामान्य सिंटैक्स

Excel में VBA का उपयोग करके कॉलम हटाने का सामान्य सिंटैक्स है,

Columns(column number/ column address).Delete

Excel में मानदंड के आधार पर कॉलम हटाने के 8 उदाहरण VBA मैक्रो के साथ

इस खंड में, आप सीखेंगे कि VBA मैक्रो के साथ Excel में सेल मान, दूसरी वर्कशीट, और टेबल के आधार पर कॉलम कैसे हटाएं।

हम उदाहरण के रूप में निम्नलिखित डेटासेट का उपयोग करेंगे।

मानदंड 1: Excel में सेल मान के आधार पर कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ सेल मान के आधार पर कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• अपने कीबोर्ड पर Alt + F11 दबाएँ या डेवलपर -> विजुअल बेसिक टैब पर जाएँ विजुअल बेसिक एडिटर खोलने के लिए।

• पॉप-अप कोड विंडो में, मेनू बार से इन्सर्ट -> मॉड्यूल पर क्लिक करें।

• निम्न कोड कॉपी करें और कोड विंडो में पेस्ट करें।

Sub DeleteColumnsBasedOnCellValue() 
    Dim iCol As Long 
    Dim iWrk As Long 
    iCol = 10 
    For iWrk = iCol To 1 Step -1 
        If Cells(1, iWrk) = 2 Then 
            Columns(iWrk).Delete 
        End If 
    Next 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

यह कोड उन कॉलम को हटा देगा जो सेल मान 2 से शुरू होते हैं।

• अपने कीबोर्ड पर F5 दबाएँ या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके मैक्रो भी चला सकते हैं।

परिणाम नीचे दिखाया गया है।

सेल मान 2 से शुरू होने वाले कॉलम हटा दिए गए हैं।

मानदंड 2: Excel में खाली सेल्स के आधार पर कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ खाली सेल्स वाले कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteBlankCells() 
    Range("A1:J10").Select '//डेटासेट की रेंज 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.EntireColumn.Delete 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

अब खाली सेल्स ले जाने वाले सभी कॉलम हटा दिए गए हैं।

मानदंड 3: Excel में खाली कॉलम हटाने के लिए VBA मैक्रो

निम्नलिखित डेटासेट को देखें जिसमें खाली कॉलम हैं। हम देखेंगे कि VBA मैक्रो के साथ Excel में इन खाली कॉलम को कैसे हटाएं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteBlankCol() 
    Dim i As Integer 
    For i = 1 To 4 
        Columns(i + 1).Delete 
    Next i 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

सभी खाली कॉलम हटा दिए गए हैं।

मानदंड 4: Excel में नॉन-एडजेसेंट कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ एकाधिक नॉन-एडजेसेंट कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteNAdjCol() 
    Range("C:E, G:I").Delete 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

C से E (फरवरी से अप्रैल) और G से I (जून से अगस्त) तक के सभी पिछले कॉलम हटा दिए गए हैं।

मानदंड 5: Excel में विशिष्ट वर्कशीट के आधार पर कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ विशिष्ट वर्कशीट से कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteColFromSheet() 
    Worksheets("New Column").Select '// शीट नाम सेट करें 
    Columns("D:F").Delete 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

"New Column" वर्कशीट से D से F (मार्च से मई) तक के सभी पिछले कॉलम हटा दिए गए हैं।

मानदंड 6: Excel में टेबल के आधार पर कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ टेबल से कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteColTable() 
    Dim srcTable As ListObject 
    Dim srcSheet As Worksheet 
    'टेबल सेट करें जिससे कॉलम हटाना है 
    Set srcTable = ActiveSheet.ListObjects("ExTable") 
    'टेबल वाली शीट सेट करें 
    Set srcSheet = Sheet8 
    With srcSheet 
        srcTable.ListColumns(5).Delete 
    End With 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

टेबल से कॉलम 5 (अप्रैल) हटा दिया गया है।

मानदंड 7: Excel में टेबल के आधार पर एकाधिक कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ टेबल से एकाधिक कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteMColTable() 
    Dim srcTable As ListObject 
    Dim srcSheet As Worksheet 
    Dim i As Integer 
    'टेबल सेट करें जिससे कॉलम हटाना है 
    Set srcTable = ActiveSheet.ListObjects("ExTable2") 
    'टेबल वाली शीट सेट करें 
    Set srcSheet = Sheet9 
    'लूप को दो बार चलाएँ क्योंकि हमें 2 कॉलम हटाने हैं 
    For i = 1 To 2 
        With Source 
            srcTable.ListColumns(5).Delete 
        End With 
    Next i 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

टेबल से कॉलम 5 और 6 (अप्रैल और मई) हटा दिए गए हैं।

मानदंड 8: Excel में कॉलम हेडर के आधार पर टेबल से कॉलम हटाने के लिए VBA मैक्रो

Excel में VBA के साथ कॉलम हेडर के आधार पर टेबल से कॉलम हटाने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्न कोड कॉपी करें और पेस्ट करें।

Sub DeleteColHeaderTable() 
    Dim srcTable As ListObject 
    Dim srcSheet As Worksheet 
    Dim i As Integer 
    Dim colName As String 
    'टेबल सेट करें जिससे कॉलम हटाना है 
    Set srcTable = ActiveSheet.ListObjects("ExTable3") 
    'टेबल वाली शीट सेट करें 
    Set srcSheet = Sheet10 
    'केस सेंसिटिव 
    colName = "Apr" 
    'टेबल में सभी कॉलम के माध्यम से लूप 
    For i = 1 To srcTable.ListColumns.Count 
        With srcSheet 
            'कॉलम हेडर जांचें 
            If srcTable.ListColumns(i).Name = colName Then 
                srcTable.ListColumns(i).Delete 
                Exit For 
            End If 
        End With 
    Next i 
End Sub

आपका कोड अब चलाने के लिए तैयार है।

• मैक्रो चलाएँ।

कॉलम हेडर नाम Apr टेबल से हटा दिया गया है।

निष्कर्ष

इस लेख ने आपको दिखाया कि VBA मैक्रो के साथ Excel में 8 अलग-अलग मानदंडों के आधार पर कॉलम कैसे हटाएं। मुझे उम्मीद है कि यह लेख आपके लिए बहुत फायदेमंद रहा होगा। विषय के संबंध में कोई भी प्रश्न पूछने के लिए बेझिझक महसूस करें।

आप यह भी एक्सप्लोर करना चाह सकते हैं

• Excel में फ़ॉर्मूला हटाए बिना कंटेंट कैसे साफ़ करें (3 तरीके)
• Excel में अतिरिक्त कॉलम हटाएं (7 विधियाँ)