/ एक्सेल में हेडर ढूंढने के लिए मैक्रो - एक्सेल, वीबीए, एक्सेल-वीबीए, एमएस-ऑफिस

एक्सेल में एक्सेल खोजने के लिए मैक्रो - एक्सेल, वीबीए, एक्सेल-वीबीए, एमएस-ऑफिस

मेरे पास 2 एक्सेल फाइलें हैं I फ़ाइल ए और फ़ाइल बी कहें। फ़ाइल ए के नीचे डेटा है

फाइल ए

फाइल बी डेटा से नीचे है।

फाइल बी

अब मैं चाहता हूं कि फ़ाइल बी से फ़ाइल में डेटा पाएंए और इसे फाइल ए के परिणाम क्षेत्र में फ़ाइल ए से हेडर वापस करना चाहिए। उदाहरण के लिए। फ़ाइल बी में ऐप्पल है तो मैक्रो को संपूर्ण फ़ाइल ए खोजना चाहिए और हमें परिणाम फ़ील्ड में FRUIT के रूप में हेडर नाम देना चाहिए। अगर यह डेटा नहीं मिला है तो इसे वापस नहीं मिलना चाहिए। कृपया सलाह दें।

उत्तर:

जवाब के लिए 0 № 1

यह आपके उदाहरण के लिए मैंने एकल फ़ाइल में 2 फ़ाइल डेटा को समूहीकृत किया है। कृपया नीचे स्नैप देखें।

मैंने आपके आवश्यक आउटपुट को प्राप्त करने के लिए एक छोटा यूडीएफ बनाया है। मॉड्यूल में नीचे यूडीएफ पेस्ट करें और आप इसे सेल से सीधे कॉल कर सकते हैं।

Public Function searchstring(a As Range, b As Range)
Dim Header As String
For i = 1 To a.Columns.Count
If Not a.Columns(i).Find(b) Is Nothing Then
Header = a.Cells(1, i)
End If
Next i
searchstring = Header
End Function

आउटपुट

यहां छवि विवरण दर्ज करें

संपादित करें:

पहले मैच हेडर प्राप्त करने के लिए एंडिफ़ से पहले बाहर निकलें का उपयोग करें।