VBA मैक्रो एक्सेल में मानदंड के आधार पर कॉलम डिलीट करने के लिए (8 उदाहरण)

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

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

आप यहां से निःशुल्क अभ्यास एक्सेल वर्कबुक डाउनलोड कर सकते हैं।

जेनेरिक सिंटैक्स

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

कॉलम (कॉलम नंबर/ कॉलम पता)। हटाएं

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

इस खंड में, आप सीखेंगे कि किसी अन्य कार्यपत्रक के आधार पर, और VBA वाली तालिका के आधार पर, सेल मान के आधार पर कॉलम कैसे हटाएं मैक्रो एक्सेल में।

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

मानदंड 1:एक्सेल में सेल वैल्यू के आधार पर कॉलम हटाने के लिए वीबीए मैक्रो

सेल मान पर आधारित कॉलम को हटाने के चरण एक्सेल में 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:एक्सेल में रिक्त कक्षों के आधार पर स्तंभों को हटाने के लिए VBA मैक्रो

रिक्त कक्षों वाले स्तंभ को हटाने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

Sub DeleteBlankCells()
Range("A1:J10").Select '//range of the dataset
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireColumn.Delete
End Sub

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

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

सभी रिक्त सेल वाले स्तंभ अब हटा दिए गए हैं।

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

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

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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

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

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

सभी रिक्त कॉलम हटा दिए जाते हैं।

और पढ़ें: एक्सेल में खाली कॉलम हटाएं

मानदंड 4:एक्सेल में गैर-आसन्न स्तंभों को निकालने के लिए VBA मैक्रो

अनेक गैर-आसन्न स्तंभों को निकालने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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

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

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

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

समान रीडिंग:

• एक्सेल में अप्रयुक्त कॉलम कैसे हटाएं(सबसे आसान 5 तरीके)
• सूत्र को प्रभावित किए बिना एक्सेल में कॉलम हटाएं (दो तरीके)
• एक्सेल में डुप्लिकेट कॉलम कैसे हटाएं (6 तरीके)

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

किसी विशिष्ट कार्यपत्रक से स्तंभ को हटाने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

Sub DeleteColFromSheet()
Worksheets("New Column").Select '// set the sheet name
Columns("D:F").Delete
End Sub

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

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

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

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

तालिका से स्तंभ को हटाने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

Sub DeleteColTable()
Dim srcTable As ListObject
Dim srcSheet As Worksheet
'Set the table from which column is to be deleted
Set srcTable = ActiveSheet.ListObjects("ExTable")
'Set the sheet that contains the table
Set srcSheet = Sheet8
With srcSheet
srcTable.ListColumns(5).Delete
End With
End Sub

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

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

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

मानदंड 7:एक्सेल में एक तालिका के आधार पर एकाधिक कॉलम निकालने के लिए वीबीए मैक्रो

एकाधिक को हटाने के चरण VBA . के साथ Excel में किसी तालिका से स्तंभ नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

Sub DeleteMColTable()
Dim srcTable As ListObject
Dim srcSheet As Worksheet
Dim i As Integer
'Set the table from which column is to be deleted
Set srcTable = ActiveSheet.ListObjects("ExTable2")
'Set the sheet that contains the table
Set srcSheet = Sheet9
'Run the loop twice as we need to delete 2 columns
For i = 1 To 2
With Source
srcTable.ListColumns(5).Delete
End With
Next i
End Sub

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

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

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

और पढ़ें: एक्सेल में एकाधिक कॉलम कैसे हटाएं

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

स्तंभ शीर्षलेख के आधार पर तालिका से स्तंभ को हटाने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

Sub DeleteColHeaderTable()
Dim srcTable As ListObject
Dim srcSheet As Worksheet
Dim i As Integer
Dim colName As String
'Set the table from which column is to be deleted
Set srcTable = ActiveSheet.ListObjects("ExTable3")
'Set the sheet that contains the table
Set srcSheet = Sheet10
'Case sensitive
colName = "Apr"
'Loop through all the columns in the table
For i = 1 To srcTable.ListColumns.Count
With srcSheet
'Check the column header
If srcTable.ListColumns(i).Name = colName Then
srcTable.ListColumns(i).Delete
Exit For
End If
End With
Next i
End Sub

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

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

कॉलम हैडर नाम अप्रैल तालिका से हटा दिया गया है।

निष्कर्ष

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

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

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