كيفية تحويل خلية واحدة إلى صفوف متعددة في إكسيل؟

[heshsaom]

السلام عليكم اساتذتى الكرام-أرجو التكرم على مساعدتى فى كيفية تحويل خلية واحدة إلى صفوف متعددة في إكسيل؟

 

الصف الثالث عمود C 

تحويل هذة الخلية الى صفوف متعددة بنفس ترتيب هذه الخلية

ولكم منى جزيل الشكر

 

 

المطلوب.xlsx تحويل خلية واحدة إلى صفوف متعددة في إكسيل.xlsx

[سليم حاصبيا]

Option Explicit
Sub TEST()
Dim X, A, B, C, I%
X = Range("B3").MergeArea.Rows.Count
A = Range("A3").Value
B = Range("B3").Value: C = Range("C3").Value
Range("A3:C3").UnMerge
With Range("A3")
    For I = 1 To X - 1
    .Offset(I, 0) = A: .Offset(I, 1) = B
    Next
End With
End Sub

جرب هذا الماكرو

 

[Ali Mohamed Ali]

أحسنت استاذ سليم كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

[heshsaom]

نموذج للمطلوب.xlsx

[أحمد يوسف]

أخى الكريم لماذا تكرر نفس المشاركة مرة اخرى على الرغم انه تم الحل والرد من قبل استاذنا الكبير سليم حاصبيا له منا جميعا كل المحبة والإحترام ؟!!!!!!!

فبدلا من تكرار المشاركة كان لزاما عليك الضغط على الإعجاب لما قدمه استاذنا الكبير من اجابة مثالية وأفضل ما سيقدم لك وذلك كما بالصورة