एक्सेल - एक सेल में केवल विशिष्ट पाठ रखना

मुद्दा

मेरे पास एक एक्सेल फाइल है जिसमें बाहरी स्रोत (पी 6) से डंप किया गया डेटा है। एक सेल में बहुत सारे डेटा होते हैं जिनमें से मुझे केवल बहुत विशिष्ट की आवश्यकता होती है।

यहाँ 5 कोशिकाओं की तरह दिखता है:

 SEA-MVRV, SEA-RAD SEA-MVAOV, SEA-OPSSRO SEA-MVAOV1 SEA-CRNPOLAR, SEA-NPCOE, SEA-MMJBC, SEA-RAD, SEA-MVMM SEA-CRNPOLAR, SEA-MMJBC, SEA-RADJ NPCOE, SEA-MVMM

मैं SEA- को हटाना चाहता हूं और फिर केवल एमवी के साथ शुरू होने वाले संक्षिप्तीकरण को रखना चाहता हूं।

उपाय

मान्यताओं

1. डेटा कॉलम A में है
2. परिणाम कॉलम बी में दिखाया जाना है

 उप-अर्कम वीवी () डिम लैमैक्स्रॉ के रूप में लॉन्ग डिम रोइंडएक्सएक्स के रूप में लॉन्ग डिम इन स्ट्रींग डिम स्ट्रिंग इन स्ट्रींग डिम स्ट्रीपिंग स्ट्रींग डिम टेंपिंग स्ट्रींग डिम iLoc As Integer lMaxRows = Cells (Rows.Count, "A")। End (xlUp) .Row for rowIdx 2 lMaxRows inString = ट्रिम (कोशिकाएं (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ")" Do Do जबकि (iLoc> 0) sTemp = Trim ( लेफ्ट (inString, iLoc - 1)) यदि (Left (sTemp, 6) = "SEA-MV") तो outString = outString और ", " & Mid (sTemp, 5) अंत में यदि inSt = ट्रिम (मिड (inString, iLoc) + 1)) iLoc = InStr (1, inString, ", ") लूप अगर (बाएं (inString, 6) = "SEA-MV") तो outString = outString & ", " & Mid (inString, 5) समाप्ति यदि (बायां (आउटस्ट्रिंग, 1) = ", ") फिर आउटस्ट्रिंग = ट्रिम (मिड (आउटस्ट्रिंग, 2)) एंड इफ सेल्स (rowIdx, "B") = आउटस्टैंडिंग नेक्स्ट एंड सब