टेक्स्ट खोए बिना सेल मर्ज करें

विवरण

मान लीजिए कि हमारे पास कई सेल हैं जिन्हें हमें टेक्स्ट के साथ मर्ज करने की आवश्यकता है। Excel मानक सेट में एक समान फ़ंक्शन है: "मर्ज और सेंटर", लेकिन मर्ज करते समय, यह केवल सबसे बाहरी सेल का टेक्स्ट छोड़ता है। इसलिए हमें ऐसे उद्देश्यों के लिए अपने स्वयं के मैक्रो का उपयोग करने की आवश्यकता है।

मैक्रो के लिए VBA कोड

ऐसा करने के लिए, संपादक Visual Basic (Alt+F11), insert VBA मॉड्यूल (Insert - Module_) खोलें और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:

Sub MergeCell()
    Const sDELIM    As String = " "
    Dim   rCell     As Range
    Dim   sMergeStr As String
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text
        Next rCell
        
        Application.DisplayAlerts = False
        .Merge Across:=False
        Application.DisplayAlerts = True
        
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
    End With
End Sub

सहेजें और Excel पर वापस लौटें।

अब आवश्यक सेलों का चयन करें और हमारा मैक्रो (Alt+F8) (मैक्रो नाम: "मर्जसेल") चलाएँ।