Note: The other languages of the website are Google-translated. Back to English

كيفية تقسيم سلسلة النص بسرعة حسب الحالة في إكسيل؟

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

تقسيم النص حسب الحالة باستخدام VBA

تقسيم النص إلى صفوف / أعمدة بواسطة فاصل مع كوتولس ل إكسيل


السهم الأزرق الحق فقاعة تقسيم النص حسب الحالة باستخدام VBA

في Excel ، لا يوجد سوى رمز ماكرو لتقسيم السلسلة بسرعة استنادًا إلى الأحرف الصغيرة والكبيرة.

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

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

VBA: تقسيم السلسلة حسب الحالة.

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

doc مقسمة حسب الحالة 1

3. صحافة F5 مفتاح ، وينبثق مربع حوار لتذكيرك بتحديد نصوص لتقسيمها. انظر لقطة الشاشة:
doc مقسمة حسب الحالة 2

4. انقر OK، وتم تقسيم النصوص المحددة إلى عمودين ، يحتوي أحدهما على أحرف صغيرة والآخر يحتوي على أحرف كبيرة.
doc مقسمة حسب الحالة 3


السهم الأزرق الحق فقاعة تقسيم النص إلى صفوف / أعمدة بواسطة فاصل مع كوتولس ل إكسيل

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد الخلية التي تريد تقسيمها ، وانقر فوق كوتولس > دمج وتقسيم > تقسيم الخلايا. انظر لقطة الشاشة:
doc مقسمة حسب الحالة 4

2. في ال تقسيم الخلايا في مربع الحوار ، تحقق من نوع التقسيم الذي تريده في النوع وانتقل للتحقق من المحدد المحدد الذي تريد التقسيم بناءً عليه في ملف تقسيم حسب الجزء. انظر لقطة الشاشة:
doc مقسمة حسب الحالة 5

3. انقر Ok، ينبثق مربع حوار لتذكيرك بتحديد خلية لوضع محتويات الانقسام. انظر لقطة الشاشة:
doc مقسمة حسب الحالة 6

4. بعد التحديد ، انقر فوق OK، وتم تقسيم الخلية المحددة إلى صفوف بناءً على المساحة. انظر لقطة الشاشة:
doc مقسمة حسب الحالة 7


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL