Excel: كيفية تقسيم النص المحدد إلى صفوف
لنفترض هنا جدولاً به ثلاثة أعمدة في ورقة العمل ، الأول يسرد مستويات الأسعار ، والثاني يسرد أسماء الفاكهة بفاصلات محددة في الخلايا ، والعمود الثالث يسرد أسعار الفاكهة. تتمثل المهمة في تقسيم أسماء الفاكهة المحددة إلى صفوف ، وتكرار مستويات الأسعار وصفوف الأسعار ذات الصلة كما هو موضح أدناه في لقطة الشاشة:
نقدم هنا طريقتين لحل هذه الوظيفة.
تقسيم النص المحدد إلى صفوف باستخدام VBA
تقسيم النص المحدد إلى صفوف باستخدام Power Query
فيما يلي رمز 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 مفتاح للنقر فوق زر التشغيل لتنشيط الكود ، ينبثق مربع حوار لك لتحديد العمود الذي يستثني الرأس الذي يحتوي على النص المحدد المطلوب تقسيمه إلى صفوف. انقر OK.
5. ثم ينبثق مربع الحوار الثاني لإدخال المحدد الذي تستخدمه. هنا يكتب الفاصلة (،). انقر OK.
الآن تم تقسيم النصوص المحددة إلى صفوف وتكررت الأعمدة الأخرى ذات الصلة.
سيغير VBA البيانات الأصلية ، يجب عليك حفظ نسخة منها بشكل أفضل من قبل.
إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن ملف Power Query سيكون اختيارًا جيدًا لحل هذه الوظيفة.
1. حدد نطاق البيانات ، للنقر البيانات > من الجدول / النطاق.
2. في ظهرت اصنع جدول الحوار ، تحقق الجدول يحتوي على رؤوس كما تريد ، وانقر OK.
ثم Power Query محرر يتم عرض النافذة ، وقد تم عرض البيانات فيه.
3. انقر فوق العمود الذي تريد تقسيم النصوص المحددة إلى صفوف ، ثم انقر فوق تحول علامة التبويب> عمود الانقسام > بواسطة محدد.
أو يمكنك أيضًا تحديد العمود والنقر بزر الماوس الأيمن فوق رأس العمود لاختيار هذه الميزة في قائمة السياق.
4. في ال انقسام العمود بواسطة محدد نافذة ، اختر المحدد الذي تريده من ملف حدد أو أدخل المحدد ، ثم اختر كل تواجد للمحدد الخيار ، ثم قم بتوسيع خيارات متقدمة قسم للاختيار الصفوف اختيار. انقر OK.
الآن تم تقسيم النصوص المحددة إلى صفوف.
5. ثم أغلق النافذة ، يظهر مربع حوار ، انقر فوق احتفظ .
ثم سيتم إنشاء ورقة جديدة مع الجدول.
كيفية تبديل لون الصف بناءً على المجموعة في إكسيل؟
في Excel ، قد يكون تلوين كل صف آخر أسهل بالنسبة لمعظمنا ، ولكن هل سبق لك أن حاولت تلوين الصفوف بالتناوب بناءً على تغييرات قيمة العمود - العمود A كما هو موضح في لقطة الشاشة التالية ، في هذه المقالة ، سأتحدث عن كيفية لتبديل لون الصف بناءً على المجموعة في Excel.
كيفية تقليل حجم ملف Excel؟
في بعض الأحيان ، سيستغرق فتح أو حفظ دقائق إذا كان ملف Excel كبيرًا جدًا. لحل هذه المشكلة ، هنا في هذا البرنامج التعليمي ، يخبرك كيفية تقليل حجم ملف Excel عن طريق إزالة المحتويات أو التنسيقات غير الضرورية أو التي لم يتم استخدامها مطلقًا.
Excel: كيفية إنشاء أو إدراج إشارة مرجعية
هل سبق لك أن تخيلت إنشاء أو إدراج إشارة مرجعية للانتقال بسرعة إلى نطاق بيانات معين بينما يوجد الكثير من البيانات في ورقة عمل أو مصنف؟
كيفية تطبيق التظليل على الصفوف / الأعمدة الفردية أو الزوجية (البديلة) في إكسيل؟
أثناء تصميم ورقة العمل ، يميل العديد من الأشخاص إلى تطبيق التظليل على صفوف أو أعمدة فردية أو زوجية (بديلة) من أجل جعل ورقة العمل أكثر وضوحًا. ستوضح لك هذه المقالة طريقتين لتطبيق التظليل على صفوف / أعمدة فردية أو زوجية في Excel.
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!