Excel: كيفية تقسيم النص المحدد إلى صفوف

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

تقسيم النص المحدد إلى صفوف باستخدام VBA

تقسيم النص المحدد إلى صفوف باستخدام Kutools لـ Excel

تقسيم النص المحدد إلى صفوف باستخدام استعلام الطاقة (POWER QUERY)

إليك كود VBA الذي يمكنه بسرعة تقسيم النص المحدد إلى صفوف.

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

2. انقر على "إدراج" > "وحدة" لإنشاء وحدة جديدة فارغة.

3. انسخ والصق الكود أدناه في الوحدة الفارغة.

VBA: تقسيم النص المحدد إلى صفوف

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

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

5. بعد ذلك، ستظهر نافذة ثانية لإدخال الفاصل المستخدم. هنا نكتب الفاصلة (,). انقر موافق.

الآن تم تقسيم النصوص المحددة إلى صفوف وتكرار الأعمدة ذات الصلة.

  سيقوم VBA بتغيير البيانات الأصلية، فمن الأفضل حفظ نسخة منها قبل ذلك.

يمكن أن يؤدي استخدام ميزة "تقسيم البيانات إلى صفوف" في Kutools لـ Excel إلى تبسيط عملية تقسيم النص المحدد إلى صفوف متعددة بشكل كبير. بنقرات قليلة فقط، يمكنك تقسيم النص المقسم بواسطة فواصل محددة، مثل الفاصلة أو الفاصلة المنقوطة أو المسافات، إلى صفوف فردية.

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

1. انقر على "Kutools" > "دمج وتقسيم" > "تقسيم البيانات إلى صفوف"، شاهد لقطة الشاشة:

2. في مربع الحوار "تقسيم البيانات إلى صفوف"، حدد العمليات التالية:

1. حدد بيانات العمود الذي تريد تقسيمه من مربع النص "النطاق (عمود واحد)"؛
2. ثم اختر الفاصل الذي يفصل بياناتك، هنا سأختار "آخر" وأكتب الفاصلة والمسافة (, ) في مربع النص؛
3. أخيرًا، انقر على زر موافق.
   

الآن تم تحويل النصوص المحددة إلى صفوف متعددة بناءً على الفاصل المحدد، شاهد لقطة الشاشة:

إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث، فإن استعلام الطاقة سيكون خيارًا جيدًا لحل هذه المهمة.

1. حدد نطاق البيانات، ثم انقر على "بيانات" > "من الجدول/النطاق".

2. في نافذة "إنشاء جدول" المنبثقة، حدد "جدولي يحتوي على عناوين" حسب الحاجة، ثم انقر موافق.

ثم ستظهر نافذة "محرر استعلام الطاقة"، وسيتم عرض البيانات فيها.

3. انقر على العمود الذي تريد تقسيم النصوص المحددة فيه إلى صفوف، ثم انقر على تبويب "تحويل" > "تقسيم العمود" > "حسب الفاصل".

أو يمكنك أيضًا تحديد العمود والنقر بزر الماوس الأيمن على رأس العمود لاختيار هذه الميزة من قائمة السياق.

4. في نافذة "تقسيم العمود بالفاصل"، اختر الفاصل الذي تحتاجه من قسم "اختر أو أدخل الفاصل"، ثم اختر خيار "كل ظهور للفاصل"، وبعد ذلك قم بتوسيع قسم "خيارات متقدمة" واختر خيار "صفوف". انقر موافق.

الآن تم تقسيم النصوص المحددة إلى صفوف.

5. ثم أغلق النافذة، ستظهر نافذة منبثقة، انقر على زر الاحتفاظ.

ثم سيتم إنشاء ورقة عمل جديدة تحتوي على الجدول.

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