انتقل إلى المحتوى الرئيسي

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

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

نقدم هنا طريقتين لحل هذه الوظيفة.

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

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


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

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

1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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

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 مفتاح للنقر فوق زر التشغيل نص تعبئة المستند بناءً على اللون 1 لتنشيط الكود ، ينبثق مربع حوار لك لتحديد العمود الذي يستثني الرأس الذي يحتوي على النص المحدد المطلوب تقسيمه إلى صفوف. انقر OK.
نص تعبئة المستند بناءً على اللون 1

5. ثم ينبثق مربع الحوار الثاني لإدخال المحدد الذي تستخدمه. هنا يكتب الفاصلة (،). انقر OK.
نص تعبئة المستند بناءً على اللون 1

الآن تم تقسيم النصوص المحددة إلى صفوف وتكررت الأعمدة الأخرى ذات الصلة.
نص تعبئة المستند بناءً على اللون 1

نص تعبئة المستند بناءً على اللون 1  سيغير VBA البيانات الأصلية ، يجب عليك حفظ نسخة منها بشكل أفضل من قبل.


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

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

1. حدد نطاق البيانات ، للنقر البيانات > من الجدول / النطاق.
نص تعبئة المستند بناءً على اللون 1

2. في ظهرت اصنع جدول الحوار ، تحقق الجدول يحتوي على رؤوس كما تريد ، وانقر OK.
نص تعبئة المستند بناءً على اللون 1

ثم Power Query محرر يتم عرض النافذة ، وقد تم عرض البيانات فيه.
نص تعبئة المستند بناءً على اللون 1

3. انقر فوق العمود الذي تريد تقسيم النصوص المحددة إلى صفوف ، ثم انقر فوق تحول علامة التبويب> عمود الانقسام > بواسطة محدد.
نص تعبئة المستند بناءً على اللون 1

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

4. في ال انقسام العمود بواسطة محدد نافذة ، اختر المحدد الذي تريده من ملف حدد أو أدخل المحدد ، ثم اختر كل تواجد للمحدد الخيار ، ثم قم بتوسيع خيارات متقدمة قسم للاختيار الصفوف اختيار. انقر OK.
نص تعبئة المستند بناءً على اللون 1

الآن تم تقسيم النصوص المحددة إلى صفوف.
نص تعبئة المستند بناءً على اللون 1

5. ثم أغلق النافذة ، يظهر مربع حوار ، انقر فوق احتفظ .
نص تعبئة المستند بناءً على اللون 1

ثم سيتم إنشاء ورقة جديدة مع الجدول.
نص تعبئة المستند بناءً على اللون 1


عمليات أخرى (مقالات)

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

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

Excel: كيفية إنشاء أو إدراج إشارة مرجعية
هل سبق لك أن تخيلت إنشاء أو إدراج إشارة مرجعية للانتقال بسرعة إلى نطاق بيانات معين بينما يوجد الكثير من البيانات في ورقة عمل أو مصنف؟

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


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations