vba - Find and return value -

मेरे पास सेल P194, P200, P300, और इसी तरह का वर्णन है।

"कट- ऑफ कॉस्ट | INV # CAT-02345-BAT-MAT07 | लाइन # 00785 | SEQ # 719779 | बिलिंग एमयूजी एसटीसी 4500 "

मुझे INV # के बाद से | और INV # और | के बीच का वर्ण तय नहीं है, यह अलग है मैं नीचे कोड का उपयोग कर रहा हूँ स्क्रिप्ट INV के लिए ठीक काम कर रहा है # कॉलम पी में आइटम, लेकिन गैर इनव # के लिए कॉलम पी में विवरण # जैसे सेल पी 12 विवरण "GLUCO30 | 57891 ||||| M007Z | 13/15 स्थानीय होस्ट सीडीएफएस | सीएटीटी -4 एफजीएच 548 -20121220 ||| 00013 | एफआईसीओ 56 डी 2 एफ 0 जी 0 जी 0 | "। यह सेल ए 12 में मान को "एस-427548-20121220" के रूप में प्रिंट करना है, इस मुद्दे को बेहतर समझने के लिए कॉलम पी में दोनों विवरण पेस्ट करें और नीचे कोड चलाएं। क्लॉमन पी 1) "कट-ऑफ कॉस्ट | INV # CAT-02345-BAT-MAT07 | लाइन # 00785 | SEQ # 719779 | बिलिंग एमयूजी एसटीसी 4500" 2) "जीएलयूसीओ 30 | 578 9 1 || 0 9 7 7 जेड | 13/15 स्थानीय होस्ट सीडीएफएस | CATT-4FGH548-20121220 ||| 00013 | FICO56D2F0G0G0 | <पूर्व> उप चालान () पर त्रुटि फिर से शुरू करें अगले दिमाग रोकेट्रेट के रूप में लंबे समय से, माइस्टार्ट के रूप में लंबे समय से, लम्बे पंक्ति सीआरटी = 6 के रूप में शीट्स ("स्टैक")। रेंज ("ई" और "रॉ")। वैल्यू & lt; & gt; "" मायस्टैंट = वर्कशीट फ़ंक्शन। फ़ंड ("#", शीट्स ("स्टैक")। रेंज ("पी" और रोकेट्रेटर) ("पी" और "आरओसीटीआर") रेंज ("पी" और "आरओसीटीआर")। वेल्यू, माइस्टार्ट) यदि वर्कशीट फंक्शन। खोजें ("#", शीट्स ("स्टैक" ) रेंज ("पी" और रोचट्र)। वेल्यू, 1) & gt; 0 तब शीट्स ("स्टैक")। रेंज ("ए" और "रो")। मूल्य = मिड (शीट्स ("स्टैक")। रेंज ( "पी" और रो सीटीआर)। वेल्यू _, माइस्टार्ट + 2, माइएंड - माइस्टैंट - 2) अंत अगर रोक्ट्र = रोकट्र + 1 वेंड एंड सब

<पूर्व> उप परिवर्तन स्ट्रिंग (नमूना जैसा नमूना) 'पहले स्थान का स्थान ढूंढें और उसे हटा दें भाग डीम चारम के रूप में पूर्णांक charNum = INStr (1, नमूना, "#") नमूना = सही (नमूना, लेन (नमूना) - चार) 'से सब कुछ निकालें | समाप्ति के अंत तक = INStr (1, नमूना, "|") नमूना = वाम (नमूना, चार- 1) समाप्ति उप