ادغام خانه های اکسل با حفظ اطلاعات

اگر با استفاده از ابزار merge در اکسل اقدام به ابغام خانه های یک محدوده بکنید، خواهید دید که در خانه حاصل از ادغام تنها مقدار خانه اول درج می شود و مقادید خانه های دیگر از دست خواهد رفت. یک راه حل برای رفع این مشکل استفاده از حالت Justiify در ویژگی Autofill اکسل می باشد که نحوه کار آن را در تصویر زیر مشاهده می کنید. اشکال این روش این است که در موارد زیر جواب نمی دهد : رای خانه های دارای فرمول برای محدوده های بیش از یک ستون برای رفع این مشکل یک ماکرو به شما معرفی می شود که برای استفاده از آن کافیست که یک محدوده را انتخاب کرده و سپس ماکرو را اجرا کنید. مشاهده خواهید کرد که مقادیر تمام خانه ها در خانه ادغام شده قرار می گیرند البته با درج یک فاصله در بین هر دو مقدار. این هم ماکروی مورد نظر :

Sub JoinAndMerge()
               
                   Dim outputText As String
                   Dim inputRange As Variant
                   Dim cell As Range
                   Const delim = " "
                   
                   On Error Resume Next
                   
                   For Each cell In Selection
                       outputText = outputText & cell.Value & delim
                   Next cell
                   With Selection
                       .Clear
                       .Cells(1).Value = outputText
                       .Merge
                       .HorizontalAlignment = xlGeneral
                       .VerticalAlignment = xlCenter
                       .WrapText = True
                   End With
               End Sub