एक्सेल में कॉलम हेडर के आधार पर कॉलम का चयन कैसे करें?
मान लीजिए, आपके पास एक बड़ी वर्कशीट है जिसमें कई कॉलम हैं, और अब, आप कॉलम हेडर नाम के आधार पर विशिष्ट कॉलम का चयन करना चाहेंगे। एक बड़ी वर्कशीट में कॉलम दर कॉलम ढूंढने में बहुत समय बर्बाद होगा, इस लेख में, मैं एक्सेल में इस काम को हल करने के लिए एक त्वरित विधि पेश करूंगा।
VBA कोड के साथ कॉलम हेडर नाम के आधार पर एक कॉलम चुनें
VBA कोड के साथ कॉलम हेडर नाम के आधार पर एक कॉलम चुनें
निम्नलिखित वीबीए कोड आपको विशिष्ट हेडर नाम के आधार पर कॉलम चुनने में मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: कॉलम हेडर नाम के आधार पर कॉलम चुनें:
Sub FindAddressColumn()
'Updateby Extendoffcie
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr = "Name"
Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A1:P1").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni = xRg
Else
Set xRgUni = Application.Union(xRgUni, xRg)
End If
Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Select
End Sub
नोट: उपरोक्त कोड में, ए1:पी1 हेडर की वह श्रेणी है जिसमें से आप कॉलम का चयन करना चाहते हैं, और "नामस्क्रिप्ट में xStr = "नाम" वह हेडर नाम है जिसके आधार पर आप कॉलम का चयन करना चाहते हैं। कृपया उन्हें अपनी आवश्यकता के अनुसार बदलें।
3. कोड को कॉपी और पेस्ट करने के बाद कृपया दबाएं F5 इस कोड को चलाने के लिए कुंजी, और विशिष्ट हेडर नाम वाले सभी कॉलम एक साथ चुने गए हैं, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!