كيف يمكن تقسيم سلسلة نصية بسرعة وفقًا لحالة الأحرف في Excel؟
في Excel، نستخدم عادةً وظيفة «النص إلى أعمدة» لتقسيم النص إما بعرضٍ ثابت أو باستخدام محدد معين. لكن هل جرّبت من قبل تقسيم النص بناءً على حالة الأحرف—الكبيرة والصغيرة؟ على سبيل المثال، لديك قائمة بيانات وتريد فصلها إلى عمودين: أحدهما يحتوي على الحروف الصغيرة فقط، والآخر على الحروف الكبيرة فقط، كما في لقطة الشاشة أدناه. للأسف، لا تدعم وظيفة «النص إلى أعمدة» هذا النوع من التقسيم مباشرةً، لكنني سأُطلعك على خدعة ذكية تتيح لك تقسيم سلسلة نصية بسرعة حسب حالة الأحرف في Excel!
تقسيم النص حسب حالة الأحرف باستخدام VBA
تقسيم النص إلى صفوف/أعمدة باستخدام محدد مع Kutools لـ Excel
تقسيم النص حسب حالة الأحرف باستخدام 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
3. اضغط علىF5، وستظهر نافذة منبثقة لتذكيرك باختيار النصوص التي تريد تقسيمها. انظر لقطة الشاشة:
4. انقر علىموافق، وسيتم تقسيم النصوص المحددة إلى عمودين: أحدهما يحتوي على النصوص بأحرف صغيرة، والآخر يحتوي على النصوص بأحرف كبيرة.
تقسيم النص إلى صفوف/أعمدة باستخدام محدد مع Kutools لـ Excel
في العديد من الحالات، قد ترغب في تقسيم خلية إلى عدة صفوف أو أعمدة بناءً على حرف معين. في Excel، تتيح لك وظيفة «النص إلى أعمدة» المضمنة تحويل الخلية مباشرةً إلى أعمدة فقط، ولا تدعم التحويل إلى صفوف. ومع ذلك، باستخدامKutools لـ Excel—أداة مفيدة وسهلة الاستخدام—يمكنك الاعتماد على أداةتقسيم الخلاياالخاصة بها لتقسيم النص بسرعة إلى صفوف أو أعمدة بناءً على محدد أو عرض ثابت.
بعدتثبيت الإصدار المجانيمن Kutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد الخلية التي تريد تقسيمها، ثم انقر علىKutools > دمج وتقسيم > تقسيم الخلايا. انظر لقطة الشاشة:
2. في مربع حوارتقسيم الخلايا، حدد نوع التقسيم الذي تريده من قسمالنوع، ثم اختر المحدد المطلوب لاستخدامه كأساس للتقسيم ضمن قسمالتقسيم حسب. انظر لقطة الشاشة:
3. انقر علىموافق، وستظهر نافذة منبثقة لتذكيرك باختيار خلية لوضع محتويات التقسيم فيها. راجع لقطة الشاشة:
4. بعد الاختيار، انقر علىموافق، وستُقسَّم الخلية المحددة تلقائيًا إلى صفوف وفقًا للمسافة المحددة. انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل