كيفية الغاء سطرين في خلية واحدة

[فراس سعدي]

السلام عليكم ورحمة الله وبركاته 

كيف يتم الغاء دمج سطرين في خلية واحدة وعزلها في حقلين منفصلين حسب المرفق وشكرا لكم .

102.xlsx

[أ / محمد صالح]

يمكنك استعمال هذا الاجراء

Sub twolines2columns()
Range("A2:A21").TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub

لاحظ ان رمز السطر الجديد هو chr(10)

بالتوفيق 

[فراس سعدي]

شكرا لك استاذي وبارك الله فيك هل يتم ذلك بدون vba عن طريق معادلات وانا شاكر لك عل الرغم اعلاه تم وبكل كفاءة وشكرا لكن اسال ان كان هناك حل عن طريق معادلة 

[أ / محمد صالح]

كل شيء ممكن لما نفكر فيه بطريقة سليمة

جرب هذه المعادلة في الخلية B2

=MID(A2, 1,FIND(CHAR(10),A2)-1)

والمعادلة التالية في الخلية C2

=MID(A2, FIND(CHAR(10),A2)+1, 10)

بالتوفيق 

[فراس سعدي]

احسنت و تربت يداك ورحم الله والديك يا طيب