بسم الله الرحمن الرحيم
الكثير منا يواجه مثل هذه المشاكل مع البيانات الكثيرة التى يتم نسخها من مواقع الانترنت لاي كشوف معينة
وبعد نسخها الى الاكسيل تجد ان البيانات غير منتظمة او على عمود واحد مع ان الترتيب الطبيعي تجده على عدة اعمدة
هذه الطريقة تتلخص في
وضع البيانات كلها في مصفوفة
وعمل مصفوفة اخرى لوضع البيانات مرتبه بالابعاد المطلوبة عدد الاعمدة كذا والصفوف
ونبحث عن شرط او عنصر مشترك في البيانات يكون ثابت وليكن تاريخ او ارقام مسلسل او كلمة متكررة لكل صف في البيانات لنبني عليها
المصفوفة الجديدة
اضع لكم مثال لبيانات على عمود واحد غير مرتبة في نفس العمود ايضا
يتم ترتيبها وتوزيعها على عدة اعمدة لتكون مفهومة او مرتبه الترتيب المراد تنفيذه
وهذه الطريقة تتميز بالدقة وسرعة التنفيذ حتى مع البيانات الكبيرة جدا
اليكم الكود التالي
CODE
Sub doaa_m()
Dim x As Long, rw
Dim arr
'وضع النطاق المرادا لتعديل عليه داخل المصفوفة
arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
'انشاء مصفوفة جديدة بالابعاد المطلوبة
ReDim y(1 To UBound(arr), 1 To 9)
'حلقة تكرارية من بداية المصفوفة الى اخرها
For x = LBound(arr) To UBound(arr)
'اذا تحقق الشرط وتشابهت الكلمة مع الموجودة داخل المصفوفة يتم جلب البيانات وتنظيمها
If arr(x, 1) Like "اللهم" Then
'اضافة صف جديد داخل المصفوفة الفارغة
rw = rw + 1
'هنا نقوم بترتيب البيانات حسب رغبتنا او حسب الترتيب الاصلي لها
'لتصبح جملة مفيدة ومفهومة
'وتصلح هذه الطريقة للكثير من البيانات التى يتم جلبها من مواقع الانترنت او من اي برامج اخري وتكون غير منتظمة
y(rw, 1) = arr(x, 1)
y(rw, 2) = arr(x + 3, 1)
y(rw, 3) = arr(x + 2, 1)
y(rw, 4) = arr(x + 4, 1)
y(rw, 5) = arr(x + 6, 1)
y(rw, 6) = arr(x + 5, 1)
y(rw, 7) = arr(x + 7, 1)
y(rw, 8) = arr(x + 9, 1)
y(rw, 9) = arr(x + 8, 1)
End If
Next
' هنا اذا كان المتغير Rw يحمل ارقام اكبر من الصفر دليل على وجود بيانات داخل المصفوفة الجديدة
'ويتم عمل ريسايز اعادة ضبط حجم الخلايا مع حجم المصفوفة الجديدةووضع النتائج بها
If rw > 0 Then Sheet2.Range("A1").Resize(UBound(arr), 9).Value = y()
MsgBox "الحمد لله"
End Sub
وهذه صورة البيانات غير منتظمة وبجانبها الارقام التوضيحية لترتيب كل كلمة داخل المصفوفة الجديدة بما يقابلها من المصفوفة القديمة

وبعد تنفيذ الكود يصبح هذا الشكل هو الترتيب النهائي للبيانات
الملف بالمرفقات
الحمد لله.zip
ملحوظة : الكود دا هيتكرر معانا في اغلب شغلنا لانه كود تقريبا مرن لكل شئ ويصلح لكل شئ
ترحيل - بحث واستدعاء - تعديل - ترتيب وتنظيم - سرعة - دقة والكثير والكثير

والسلام عليكم
