كيفية تقسيم البيانات بواسطة الفاصل وإعادة ترتيبها في عمود في Excel؟

عند العمل مع Excel، من الشائع مواجهة خلايا تحتوي على قيم متعددة مفصولة بفواصل أو فواصل منقوطة أو غيرها من الفواصل. إذا كنت بحاجة إلى تقسيم نطاق من هذه الخلايا بواسطة فاصل محدد ودمج جميع القيم الناتجة في عمود واحد كما هو موضح في لقطة الشاشة أدناه، هناك طرق فعالة لتحقيق ذلك لتحسين تنظيم البيانات وتحليلها.

تقسيم البيانات بواسطة الفاصل وإعادة ترتيبها في عمود

• باستخدام صيغة (Excel 365)
• باستخدام Kutools لـ Excel
• باستخدام كود VBA

تقسيم البيانات بواسطة الفاصل وإعادة ترتيبها في عمود باستخدام صيغة (Excel 365)

في Excel 365، يمكننا تحقيق هذا التحويل بشكل ديناميكي باستخدام الوظائف الحديثة مثل TEXTSPLIT وTEXTJOIN.

انقر فوق الخلية التي تريد وضع النتيجة فيها، وأدخل الصيغة أدناه واضغط على مفتاح Enter. سيتم تحويل الخلايا التي تحتوي على سلاسل نصية مفصولة بفواصل إلى قائمة مرة واحدة. انظر لقطة الشاشة:

=TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ", TRUE, A2:A5), ", "))

تقسيم البيانات بواسطة الفاصل وإعادة ترتيبها في عمود باستخدام Kutools لـ Excel

بالنسبة للمستخدمين الذين يعملون مع إصدارات Excel القديمة (2016/2019 إلخ والتي تفتقر إلى وظيفة TEXTSPLIT)، تقدم ميزة تقسيم البيانات إلى أسطر في Kutools لـ Excel حلاً مثالياً. تتيح لك هذه الميزة تقسيم محتوى الخلية بسرعة إلى عمود واحد بناءً على فاصل محدد، مما يوفر لك الوقت والجهد.

بعد تثبيت Kutools لـ Excel، يرجى القيام بالخطوات التالية:

1. انقر Kutools > دمج & تقسيم > تقسيم البيانات إلى أسطر، انظر لقطة الشاشة:
   
2. في تقسيم البيانات إلى أسطر مربع الحوار، حدد العمليات التالية:
   • حدد الخلايا التي تريد تقسيمها؛
   • في قسم الفاصل، اختر آخر، ثم اكتب الفاصل الخاص بك (مثل فاصلة ومسافة) لتحديد كيفية تقسيم محتوى الخلية؛
   • أخيراً، انقر موافق زر.
     

النتيجة: يتم تقسيم الخلايا المحددة إلى عمود بواسطة الفواصل المحددة.

تقسيم البيانات بواسطة الفاصل وإعادة ترتيبها في عمود باستخدام كود VBA

هنا، سنرشدك خلال كيفية استخدام VBA لتقسيم محتوى الخلية بواسطة الفاصل وإعادة ترتيب النتائج في عمود واحد.

1. اضغط على مفاتيح Alt + F11 لعرض نافذة Microsoft Visual Basic for Applications.

2. انقر على إدراج > وحدة، والصق الكود أدناه في نافذة الوحدة الجديدة.

VBA: تقسيم ونقل

Sub Vertical()
'Updateby Extendoffice
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. اضغط F5 مفتاح لتشغيل الكود، ستظهر نافذة منبثقة لك لاختيار نطاق لتقسيمه ونقله.

4. انقر موافق. ستظهر نافذة منبثقة لاختيار موقع لوضع البيانات.

5. انقر موافق، وقد تم تقسيم التحديد ونقله بواسطة الفاصلة.

🔚 الاستنتاج

جميع الطرق تحل بشكل فعال المشكلة الأساسية المتمثلة في تقسيم البيانات المفصولة، مع اختيار الأمثل الذي يعتمد على مستوى راحتك التقنية واحتياجاتك الخاصة.

• بالنسبة لمعظم مستخدمي Excel 365، توفر طريقة الصيغة أفضل توازن بين القوة والقابلية للصيانة.
• بالنسبة للتحويلات المعقدة المتكررة من قبل غير المبرمجين، Kutools هو الأمثل.
• بالنسبة للحلول المخصصة والمأتمتة في بيئات المؤسسات، توفر VBA أكبر قدر من التحكم.

اختر الطريقة بناءً على احتياجاتك الخاصة. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، يقدم موقعنا آلاف الدروس لمساعدتك على إتقان Excel.