كود تحويل الفقرات النصية في الخلية الي سطر واحد

[محمد الزريعي]

هذا الكود يقوم بتحويل الفقرات الموجودة داخل الخلية الواحدة ، الي فقرة ( سطر ) واحد فقط . لكي يتنسق معك الصفوف بشكل جميل . بدل ما يكون عندك سطر ارتفاعة كثير لوجود فقرات فية . كما هو في الصورة المرفقة . 

 

Sub RemoveCarriageReturns()
    Dim MyRange As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    For Each MyRange In ActiveSheet.UsedRange
        If 0 < InStr(MyRange, Chr(10)) Then
            MyRange = Replace(MyRange, Chr(10), "")
        End If
    Next
 
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

هذا الكود للفائدة . فقط  .. 

وخلاصة الكود  ( داخل الشرط If ) . 

الكود منسوخ من موقع  غير عربي . 

[أبو حنــــين]

جزاك الله خيرا على هذا الكود الممتاز

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم محمد

إليك السطر التالي يفي بالغرض (والعرب بردو عندهم إمكانيات)

Sub Test()
    Cells.Replace What:=Chr(10), Replacement:=""
End Sub