Sheet2 से ID मान के साथ Sheet1 ID भरें

Question

यहाँ नया हूँ और मुझे दूसरी शीट से डेटा भरने में समस्या है।

शीट 1 इस तरह दिखता है:

 _|___A___|___B___|___C___|
 1|   1   |John   |1,35,12|
 2|   2   |Derek  |45,2,1 |
 and so....

Sheet2

 _|___A___|___B___|
 1|   1   |Hammer |
 2|   2   |Nails  |
        . . .
12|   12  |Car    |
        . . . 
35|   35  |Rope   |
        . . .
45|   45  |Vase   |

मुझे यह प्राप्त करने के लिए शीट 2 से आईडी 1 को शीट 2 (नाम, "या", "," द्वारा अलग) के नामों से बदलना होगा:

 _|___A___|___B___|_______C_________|
 1|   1   |John   |Hammer,Rope,Car  |
 2|   2   |Derek  |Vase,Nails,Hammer|
 and so....

मैं नहीं जानता कि अगर यह भी संभव है, लेकिन अगर कृपया मेरी मदद करो

ty :)

Comments

1. आप किस स्प्रैडशीट एप्लिकेशन का उपयोग कर रहे हैं? 2. क्या कोल सी में हमेशा तीन आइटम होते हैं? 3. परिणाम को शीट 1 पर कर्नल सी सामग्री को बदलना चाहिए, या समाधान में संशोधित सामग्री (और यदि आवश्यक हो तो कर्नल सी को छिपाते हुए) के साथ एक कॉलम को जोड़ना या एक नया शीट बनाना शामिल हो सकता है जो आपके अंतिम उदाहरण की तरह दिखता है?

— फिक्सर 1234

1. एक्सेल 2007 2. नहीं ... कुछ कम, कुछ अधिक 3. यह शीट 1 को बदल सकता है या नई शीट बना सकता है जो अंतिम उदाहरण की तरह दिखता है।

— सिल्वर 2002

Answer 1

इस कोड को एक्सेल में नए मॉड्यूल में जोड़ें:

Function SplitThenFind(cell As String, sourceColumn As Range)

    Dim myArray As Variant
    Dim element As Variant
    Dim result As String
    Dim findResult As Range

    myArray = Split(cell, ",")

    For Each element In myArray

        Set findResult = Application.Worksheets(sourceColumn.Worksheet.Index).Range(sourceColumn.Address).Find(element, Lookat:=xlWhole)

        If Not (findResult Is Nothing) Then
            ' with offset you can select the column you need
            result = result & findResult.Cells.Offset(0, 1).Value & ","
        End If
    Next

    If Len(result) > 0 Then
      result = Left(result, Len(result) - 1)
    End If

SplitThenFind = result

End Function

Comments

क्या आप मुझे बता सकते हैं कि यह कैसे करना है? मैं एक्सेल 2007 का उपयोग कर रहा

— हूं

मैं कस्टम फ़ंक्शन के रूप में एक्सेल मॉड्यूल में कोड जोड़ता हूं, इस अच्छे संदर्भ को देखें: लिंक

— अकलमज