विषय - सूची
यह ट्यूटोरियल दिखाएगा कि स्ट्रिंग्स को सेल में कैसे विभाजित किया जाए।
कोशिकाओं में विभाजित स्ट्रिंग
वीबीए में, हम टेक्स्ट की एक स्ट्रिंग को ऐरे में विभाजित करने के लिए स्प्लिट फ़ंक्शन का उपयोग कर सकते हैं।
नोट: हमने वीबीए में स्प्लिट फंक्शन का उपयोग करने के लिए एक संपूर्ण मेगा-गाइड लिखा है। हम अत्यधिक अनुशंसा करते हैं कि आप इसे जांचें।
तब हम सरणी के माध्यम से लूप कर सकते हैं, विभाजित पाठ को एक्सेल कोशिकाओं में आउटपुट कर सकते हैं:
| 12345678910111213141516171819 | उप-विभाजन द्वारा अर्धविराम उदाहरण ()'चर परिभाषित करें'Dim MyArray () स्ट्रिंग के रूप में, MyString स्ट्रिंग के रूप में, मैं संस्करण के रूप में, N के रूप में पूर्णांक'सेमी कोलन डिलीमीटर के साथ नमूना स्ट्रिंग'MyString = "[email protected];[email protected];[email protected];[email protected]"'स्ट्रिंग के घटक भागों को विभाजित करने के लिए स्प्लिट फ़ंक्शन का उपयोग करें'MyArray = स्प्लिट (माईस्ट्रिंग, ";")'वर्कशीट साफ़ करें'एक्टिवशीट.यूज्ड रेंज.क्लियर'सरणी के माध्यम से पुनरावृति'N = 0 से UBound (MyArray) के लिए'प्रत्येक ईमेल पते को वर्कशीट के पहले कॉलम में रखें'रेंज ("ए" और एन + 1)। वैल्यू = मायएरे (एन)अगला नहींअंत उप |
वैकल्पिक रूप से, हम सरणी को वर्कशीट में आउटपुट करने के लिए ट्रांसपोज़ फ़ंक्शन का उपयोग कर सकते हैं:
| 12345678910111213 | उप कॉपीटोरेंज ()'चर बनाएं'Dim MyArray () स्ट्रिंग के रूप में, MyString स्ट्रिंग के रूप में'अंतरिक्ष सीमांकक के साथ नमूना स्ट्रिंग'MyString = "एक, दो, तीन, चार, पांच, छह"'स्ट्रिंग के घटक भागों को विभाजित करने के लिए स्प्लिट फ़ंक्शन का उपयोग करें'MyArray = स्प्लिट (माईस्ट्रिंग, ",")'सरणी को वर्कशीट में कॉपी करें'रेंज ("ए 1: ए" और यूबाउंड (माईअरे) + 1)। वैल्यू = वर्कशीटफंक्शन। ट्रांसफर (माईअरे)अंत उप |
