كيف تُظهر فقط أول n حرفًا من سلسلة نصية في خلية؟
في العديد من مهام إكسل، قد تحتاج إلى عرض الأحرف القليلة الأولى فقط من نص موجود في خلية—مثل استخراج أول 3 أو 5 أحرف، أو أي عدد محدد من الأحرف، لأغراض إنشاء الرموز أو الاختصارات أو المعرّفات المختصرة. ويُعد هذا متطلبًا شائعًا عند التعامل مع البيانات المستوردة أو السلاسل النصية الطويلة، أو عند إعداد ملخصات للتقارير. ومن خلال عزل الجزء الأول من محتوى الخلية، يمكنك بسرعة إنشاء عروض بيانات قياسية وموجزة تسهّل المقارنة والفرز وإدارة البيانات بكفاءة. فيما يلي عدة حلول عملية لعرض أول *n* أحرف فقط من خلية، صُمّمت لتلبية سيناريوهات واحتياجات المستخدمين المختلفة.
عرض أول n أحرف باستخدام صيغة
استخدام ماكرو VBA لاستخراج أول n أحرف من الخلايا
عرض أول n أحرف باستخدام صيغة
تستخدم هذه الطريقة دالة إكسل لاستخراج أول N أحرف من خلية. وللتوضيح، سنعرض أول 3 أحرف من قيمة الخلية، ويمكنك بسهولة تعديل هذا العدد وفقًا لاحتياجاتك الخاصة.
اختر خلية فارغة تريد أن تُظهر فيها أول 3 أحرف من خلية أخرى، وأدخل الصيغة التالية:
=LEFT(A1,3)بعد إدخال الصيغة، اضغط Enter. وللاستخراج السريع من خلايا متعددة، انقر على الخلية التي تحتوي على الصيغة، ثم اسحب مقبض التعبئة لأسفل عبر الخلايا الأخرى التي تريد معالجتها. الآن، ستعرض كل خلية أول 3 أحرف فقط من الخلية الأصلية المقابلة لها.
=LEFT(SUBSTITUTE(A1," ",""),3)تحذف هذه الصيغة جميع المسافات أولاً، ثم تستخرج أول 3 أحرف من السلسلة الناتجة—مثالية للرموز أو الأرقام المسلسلة أو أي وقت تحتاج فيه إلى هيكل نصي موحّد.
استخدام ماكرو VBA لاستخراج أول n أحرف من الخلايا
للمستخدمين المتقدمين الذين يحتاجون غالبًا إلى استخراج أول N حرفًا من خلايا متعددة تلقائيًّا، يُعد ماكرو VBA حلاً مرنًا وفعّالًا. ويبرز هذا الأسلوب كخيار مثالي عند التعامل مع مجموعات بيانات ضخمة، حيث يصبح إدخال الصيغ يدويًّا لكل صف عملية تستهلك وقتًا طويلاً. وبمجرد تشغيل الماكرو، يمكنك تحديد أي نطاق وتخصيص عدد الأحرف المراد استخراجها دفعة واحدة بكل سهولة.
1. انتقل إلى علامة التبويبأدوات المطورفي إكسل، ثم انقر علىVisual Basic. بعد فتح نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ والصق الكود التالي في الوحدة النمطية:
Sub ExtractFirstNCharacters()
Dim rng As Range
Dim WorkRng As Range
Dim n As Integer
Dim cell As Range
Dim result As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to extract characters", xTitleId, WorkRng.Address, Type:=8)
n = Application.InputBox("Enter number of characters to extract", xTitleId, "3", Type:=1)
For Each cell In WorkRng
If Len(cell.Value) >= n Then
result = Left(cell.Value, n)
Else
result = cell.Value
End If
cell.Offset(0, 1).Value = result
Next cell
End Sub2. بعد إدخال الكود، انقر على زر
تشغيل (Run)لتنفيذ الماكرو. اتبع التعليمات: اختر أولًا نطاق البيانات الخاص بك، ثم أدخل عدد الأحرف المطلوب، وسيقوم الماكرو بتعبئة العمود المجاور بالنتائج المستخرجة بسرعة.
نصائح وتحذيرات:تعتمد طريقة VBA هذه على التحديد الحالي في ورقة العمل النشطة. تأكد من وجود عمود فارغ بجانب بياناتك الأصلية لاستقبال الناتج. إذا احتوى النطاق على صيغ أو خلايا غير نصية، فسيحاول الماكرو استخراج البيانات، لكن قد يُنتج نتائج غير متوقعة—لذا تحقق دائمًا من صحة النتائج. ويُساعد استخدامOn Error Resume Next في منع توقف الكود عند حدوث أخطاء بسيطة. وللرجوع عن أي تغييرات، احفظ عملك قبل تشغيل الماكرو، أو فكّر في إنشاء نسخة احتياطية من بياناتك لضمان سلامتها.
سيناريوهات التطبيق:أتمتة VBA مثالية لإدارة قوائم الرواتب، وتنسيق الرموز، ووسم المنتجات، وأي مهمة تتطلب إجراءات استخراج متكررة. وهي تتألق بشكل خاص في المهام الدفعية، ويمكن تخصيصها بسهولة لتناسب نطاقات غير متجاورة أو أنماط إخراج متنوعة.
المزايا:تُمكّنك من استخراج كميات كبيرة من البيانات بمعالم قابلة للتخصيص.العيوب:تتطلب الوصول إلى VBA وتمكين إعدادات أمان الماكرو الأساسية في إكسل.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل