اخي عمودي
اشكر لك حسن لباقتك و اخلاقك و لكن انا اسف ان فهمت انت قصدي خطا
ما قصدته اننا نحاول ان نتعلم و المنتدى هنا كما تلاحظ لا يوجد به دروس تعليمية
فيا ريت لو انت تساعدنا انه نتعلم البرمجة
و يكون اجرك على الله
اضافة لحل الاستاذ عامودي
يمكنك عمل ذلك باستخدام الدوال
و ذلك بان تضع في العمود b
=TRIM(LEFT(A1,LEN(A1)-FIND(",",A1)-1))
و في العمود C
=TRIM(RIGHT(A1,LEN(A1)-FIND(",",A1)-1))
و دعواتكم
السلام عليكم
اخوتي لقد سررت عندما وجدت منتدى عربي متخصص في الاوفيس, و اتمنى التوفيق للجميع
و طلبي هو شرح هذا الجزء من الكود و كيفية استخدامه و ان استطعتم مثال مطبق عليه
يا ريت حد يقدر يساعدني
و هذا هو الكود
Cells(Rows.Count, 1).End(xlUp).Row
و شكراً