كيفية البحث عن قيم متعددة واستبدالها مرة واحدة في Excel؟
كما نعلم جميعًا ، يمكننا استخدام وظيفة البحث والاستبدال للعثور على نفس الخلية المتعددة واستبدالها بقيمة حسب حاجتك. لكن في بعض الأحيان ، تحتاج إلى تطبيق استبدال متعدد بأطراف في وقت واحد. على سبيل المثال ، لدي مجموعة من البيانات ، والآن أريد استبدال جميع التفاح إلى التفاح الأحمر ، والبرتقال إلى البرتقال الأخضر ، والموز إلى الموز الأصفر وما إلى ذلك كما هو موضح في لقطات الشاشة التالية ، هل لديك أي أفكار جيدة لحل هذه المهمة في اكسل؟
ابحث عن قيم متعددة واستبدلها مرة واحدة برمز VBA
إذا مللت من البحث عن القيم واستبدالها مرارًا وتكرارًا ، يمكن أن يساعدك رمز VBA التالي في استبدال القيم المتعددة بالنصوص المطلوبة في وقت واحد.
1. يرجى إنشاء الشروط التي تريد استخدامها والتي تحتوي على القيم الأصلية والقيم الجديدة. انظر لقطة الشاشة:
2. ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
3. انقر إدراج > وحدة، والصق الكود التالي في نافذة الوحدة النمطية.
كود فبا: ابحث عن قيم متعددة واستبدلها مرة واحدة
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، في مربع المطالبة المنبثق ، يرجى تحديد نطاق البيانات الذي تريد استبدال القيم بقيم جديدة.
5. انقر OK، ويتم عرض مربع مطالبة آخر لتذكيرك بتحديد المعايير التي قمت بإنشائها في الخطوة 1. انظر لقطة الشاشة:
6. ثم اضغط OK، تم استبدال جميع القيم المحددة بالقيم الجديدة كما تريد على الفور.
مقالات ذات صلة:
كيفية البحث عن نص معين واستبداله في مربعات النص؟
كيفية البحث عن نص واستبداله في عناوين المخططات في Excel؟
كيفية البحث عن نص واستبداله داخل التعليقات في Excel؟
كيفية تغيير مسارات الارتباط التشعبي المتعددة مرة واحدة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!