वीबीए: समान मानों वाली कोशिकाओं को कैसे मर्ज करें

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

 Sub MergeSameCells()
    
    'turn off display alerts while merging
    Application.DisplayAlerts = False
    
    'specify range of cells for merging
    Set myRange = Range(" A1:C13 ")

'merge all same cells in range
MergeSame:
    For Each cell In myRange
        If cell.Value = cell.Offset(1, 0).Value And Not IsEmpty(cell) Then
            Range(cell, cell.Offset(1, 0)).Merge
            cell.VerticalAlignment = xlCenter
            GoTo MergeSame
        End If
    Next
    
    'turn display alerts back on
    Application.DisplayAlerts = True

End Sub

यह विशेष मैक्रो A1:C13 श्रेणी में समान मान वाली कोशिकाओं को मर्ज करता है।

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

उदाहरण: VBA में समान मान वाले कक्षों को मर्ज करें

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

मान लीजिए कि हम लगातार पंक्तियों में समान मान वाली कोशिकाओं को मर्ज करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub MergeSameCells()
    
    'turn off display alerts while merging
    Application.DisplayAlerts = False
    
    'specify range of cells for merging
    Set myRange = Range(" A1:C13 ")

'merge all same cells in range
MergeSame:
    For Each cell In myRange
        If cell.Value = cell.Offset(1, 0).Value And Not IsEmpty(cell) Then
            Range(cell, cell.Offset(1, 0)).Merge
            cell.VerticalAlignment = xlCenter
            GoTo MergeSame
        End If
    Next
    
    'turn display alerts back on
    Application.DisplayAlerts = True

End Sub

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

ध्यान दें कि समान कॉन्फ्रेंस नाम और टीम नाम वाले प्रत्येक सेल को मर्ज कर दिया गया है।

ध्यान दें कि हमने यह निर्दिष्ट करने के लिए cell.VerticalAlignment = xlCenter स्टेटमेंट का उपयोग किया है कि टेक्स्ट को मर्ज किए गए सेल में लंबवत रूप से केंद्रित किया जाना चाहिए।

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

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

वीबीए: उपयोग किए गए कॉलमों की संख्या कैसे गिनें
वीबीए: पंक्ति की ऊंचाई कैसे बदलें
वीबीए: कॉलम की चौड़ाई कैसे बदलें