اريد ترتيب الجدول ، وفصل بيانات في اعمدة الجدول

[اوفيس 2003]

السلام عليكم

 

اريد فصل بيانات في اعمدة الجدول ولم تنفع بطريقة النص الى اعمدة 

 

 

 

 

Test 200.rar

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

تفضل اخي الكريم الحل

Test 200 salim.rar

[اوفيس 2003]

ماشاء الله

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

 

هل هناك حلول اخرى او شرح مبسط للمعادلة

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

أخي الحبيب

ليك وحشة والله ..فينك من فترة ..مختفي فين؟

 

إليك الحل التالي بالكود ...

Sub YasserKhalilToAdel()
    Dim A, B, I As Long, J As Long, N As Long

    A = Sheets("Sheet1").Range("A1:C8").Value
    ReDim B(1 To UBound(A, 1) / 2, 1 To UBound(A, 2) + 1)

    For I = 1 To UBound(A, 1) Step 2
        N = (I \ 2) + 1
        B(N, 2) = A(I, 1)
        B(N, 3) = A(I, 2)
        B(N, 4) = A(I, 3)
        B(N, 1) = A(I + 1, 1)
    Next I

    Range("A10").Resize(UBound(B, 1), UBound(B, 2)).Value = B
End Sub

** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛  ليظهر الموضوع مجاب ومنتهي.

** لا تنسى أن تضغط كلمة "أعجبني هذا" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل)

تقبل تحياتي

Test 200 By Code.rar

[اوفيس 2003]

بارك الله فيك اخي ياسر واشكرك على التعاون والجهد المبذول في المنتدى

 

انا اعلم موضع اختيار افضل اجابة ولكني منتظر ربما اجد اجابة ابسط من ما قدم ولا يعني ذلك تقليل من ما تم تقديمه ولكن هذا ناتج لقلة الخبرة لدي التي تجعل ما تقدمونه صعب علي في تطبيقه

 

انا توقعت ان اجد حل مثل موضوع النص الى اعمدة  وماشابه