لنفترض أن لدينا العديد من الخلايا التي نحتاج إلى دمجها مع النص. تحتوي المجموعة القياسية Excel على وظيفة مشابهة: "الدمج والتوسيط"، ولكن عند إجراء الدمج، فإنها تترك فقط نص الخلية الخارجية. لذلك نحن بحاجة إلى استخدام الماكرو الخاص بنا لمثل هذه الأغراض.
للقيام بذلك، افتح المحرر Visual Basic (Alt+F11)، insert VBA Module (Inser - 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) (اسم الماكرو: "MergeCell").