वीबीए में स्ट्रिंग्स को कैसे जोड़ें (उदाहरण के साथ)

आप VBA में स्ट्रिंग्स को संयोजित करने के लिए निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: दो तारों को जोड़ें

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

यह उदाहरण सेल A2 और B2 में स्ट्रिंग्स को संयोजित करेगा और सेल C2 में परिणाम प्रदर्शित करेगा।

विधि 2: एक सीमांकक के साथ दो तारों को जोड़ें

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

यह उदाहरण सेल A2 और B2 में स्ट्रिंग्स को स्ट्रिंग्स के बीच एक स्थान के साथ संयोजित करेगा और सेल C2 में परिणाम प्रदर्शित करेगा।

विधि 3: एक सीमांकक के साथ दो स्तंभों को जोड़ें

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

यह उदाहरण स्ट्रिंग्स के बीच एक अंडरस्कोर के साथ A2:A6 और B2:B6 श्रेणियों में स्ट्रिंग्स को संयोजित करेगा और सेल C2:C6 में परिणाम प्रदर्शित करेगा।

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में इनमें से प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: दो तारों को जोड़ें

हम दो स्ट्रिंग्स को जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल A2 और B2 से स्ट्रिंग्स को सेल C2 में संयोजित किया गया है।

उदाहरण 2: एक सीमांकक के साथ दो तारों को जोड़ें

हम सीमांकक के रूप में एक स्थान के साथ दो स्ट्रिंग्स को जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल A2 और B2 में स्ट्रिंग्स को उनके बीच एक स्थान के साथ जोड़ा गया है और परिणाम सेल C2 में प्रदर्शित होता है।

उदाहरण 3: एक सीमांकक के साथ दो स्तंभों को जोड़ें

हम एक सीमांकक के रूप में अंडरस्कोर के साथ स्ट्रिंग्स को दो कॉलमों में जोड़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि रेंज A2:A6 और B2:B6 में स्ट्रिंग्स को उनके बीच एक अंडरस्कोर के साथ जोड़ा गया है और परिणाम C2:C6 रेंज में प्रदर्शित होते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें
वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें