كيف يمكن نقل الكلمة الأخيرة إلى الخلية المجاورة التالية؟
افترض أن لديك قائمة من سلاسل النصوص وترغب في نقل الكلمة الأخيرة من كل سلسلة إلى الخلية المجاورة، كما هو موضح في لقطة الشاشة التالية. بالطبع، يمكنك قصها ولصقها يدويًّا واحدة تلو الأخرى، ولكن هل هناك طريقة أسرع لنقلها دفعة واحدة إلى الخلية التالية في إكسل؟
نقل الكلمة الأخيرة إلى الخلية المجاورة التالية باستخدام كود VBA
استخراج الكلمة الأخيرة إلى الخلية المجاورة التالية باستخدام صيغة
نقل الكلمة الأخيرة إلى الخلية المجاورة التالية باستخدام كود VBA
لقص ونقل الكلمة الأخيرة من خلية إلى الخلية المجاورة التالية، يُرجى تطبيق كود VBA التالي:
1. اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة، ثم الصق الكود التالي في نافذةالوحدة.
كود VBA: نقل الكلمة الأخيرة إلى الخلية المجاورة التالية:
Sub splitlastword()
Dim xCell As Range
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
Exit Sub
End If
For Each xCell In xRg
xStr = Trim(xCell.Value)
xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
xCell.Value = Left(xStr, InStrRev(xStr, " "))
Next
End Sub
3. ثم اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد خلايا النص التي تريد نقل الكلمة الأخيرة منها. انظر لقطة الشاشة:
4. ثم انقر فوق زرموافق، وسيتم نقل الكلمات الأخيرة من الخلايا المحددة فورًا إلى الخلية المجاورة على اليمين. انظر لقطة الشاشة:
استخراج الكلمة الأخيرة إلى الخلية المجاورة التالية باستخدام صيغة
إذا كنت بحاجة فقط إلى استخراج الكلمات الأخيرة من سلاسل النصوص دون نقلها، فإن الصيغة التالية ستساعدك.
يرجى إدخال هذه الصيغة:
=RIGHT(A2,LEN(A2)-FIND(«*»,SUBSTITUTE(A2,« »,«*»,LEN(A2)-LEN(SUBSTITUTE(A2,« »,«»)))))في خلية فارغة بجانب خلية النص، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد استخراج الكلمة الأخيرة منها. وسيتم استخراج الكلمات الأخيرة من جميع سلاسل النصوص تلقائيًا دون الحاجة إلى نقل النصوص الأصلية. انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل