دمج الخلايا دون فقدان النص

وصف

لنفترض أن لدينا العديد من الخلايا التي نحتاج إلى دمجها مع النص. في المجموعة القياسية Excel توجد وظيفة مماثلة: "دمج ومركز" ولكن عند إجراء الاتحاد، فإنه يترك فقط نص الخلية الخارجية. لذلك نحن بحاجة إلى استخدام الماكرو الخاص بنا لمثل هذه الأغراض.

VBA رمز الماكرو

للقيام بذلك، افتح محرر Visual Basic (Alt+F11)، أدخل الوحدة النمطية VBA (Insert - Module) وانسخ نص هذا الإجراء هناك:

Sub MergeToOneCell()
    'moonexcel.com.ua
    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) (اسم الماكرو: "MergeCell").