एक्सेल पार्स सेल जिसमें अल्पविराम से अलग की गई सूची है और प्रत्येक मान को सूचकांक के रूप में उपयोग करते हैं

-2

Excel Sheet1, ColumnA है

1) 3, 2, 4
2) 1

नंबर Sheet2, ColumnB में पंक्ति संख्याओं को संदर्भित करते हैं, जिसमें पहचानकर्ता होते हैं

1) foo
2) bar
3) eggs
4) sausage

मुझे शीट 1 में एक स्तंभ के साथ समाप्त होना चाहिए, जिसमें सम्‍मिलित है

1) eggs, bar, sausage
2) foo

मुझे पूरा यकीन है कि मैं इसे पायथन स्क्रिप्ट के साथ कर सकता हूं, हालांकि इसे एक्सेल में करना पसंद किया जाता है। दुर्भाग्य से, मैं शायद ही वीबीए के बारे में एक बात जानता हूं।

स्तंभों पर पाठ ऐसा नहीं करेगा: आप एक नई शीट को लक्षित नहीं कर सकते हैं, लेकिन शीट 1 कक्ष में एक सेल में किसी भी संख्या में आइटम हो सकते हैं।

संपादित करें: VLOOKUP यहां काम नहीं करेगा, क्योंकि यह सेल सामग्री द्वारा दिखता है । यहाँ, मैं सेल संदर्भ द्वारा देखना चाहता हूँ । INDEX करेगा, अगर मैं इसे एक सेल में कई अल्पविराम-अंतरिक्ष-अलग मूल्यों पर पुनरावृति करने के लिए प्राप्त कर सकता हूं। मुझे पहले सेल में मानों को पार्स करने की आवश्यकता है, और फिर प्रत्येक के लिए इसी लुकअप मान को खोजने के लिए INDEX का उपयोग करें।

microsoft-excel

— RolfBly
स्रोत

@ टायसन Vlookup यहां काम नहीं करेगा, एडिट देखें। यह एक होमवर्क सवाल भी नहीं है। यह एक काम का सवाल है, मूल बातों के लिए टूट गया।

— रॉल्फबली

यह VBA कोड ट्रिक करेगा:

Public Function mysearch(value As String)
    Dim myrows() As String
    myrows = Split(value, ",")
    result = ""
    For i = LBound(myrows) To UBound(myrows)
        a = ThisWorkbook.Worksheets(2).Cells(myrows(i), 2) 'The first 2 is the number of sheet and the last 2 is the column.
        result = result & a & ","
    Next i
    result = Left(result, Len(result) - 1)
    mysearch = result
End Function

ALT+ के साथ मैक्रो / VBA पर जाएं F11। ThisWorkbook के तहत एक मॉड्यूल डालें और दाईं ओर कोड पेस्ट करें।

यदि आपका संदर्भ डेटा शीट 1 कॉलम ए में है, तो सेल बी 1 पुट में =mysearch(A1)और यदि डेटा शीट 2 के कॉलम बी में है, तो आपको परिणाम मिलेगा।

— jcbermu
स्रोत

धन्यवाद! यह सही है। भ्रामक रूप से, चादरों को शीट 1 कहा जा सकता है लेकिन क्रमांकित शीट 3 हो सकती है, लेकिन अब मुझे यह अधिकार मिल गया कि यह एक आकर्षण की तरह काम करती है। बहुत धन्यवाद फिर से!

— रॉल्फब्ली