VBA - ماكرو لإزالة جزء من البيانات الموجودة في الخلايا
القضية
أحتاج إلى إزالة العناوين (Mr / Mrs / Miss) التي تسبق الأسماء الموجودة في خلية واحدة وانسخها إلى خلية أخرى. اي فكرة؟ نصيحتك هي محل تقدير كبير.
- على سبيل المثال إذا كان لدي ملكة جمال جين سميث في C2 ، ثم في C3: Jane Smith
- أنا أيضا بحاجة لجعل النتيجة تظهر في ورقة أخرى.
حل
- 1) جرب هذه الصيغة
= MID (C2 ، بحث ("" ، C2) + 1 ، LEN (C2) - البحث ("" ، C2) +1)
سيعمل هذا مهما كان التجانب في C2 السيد أو السيدة أو الآنسة وما إلى ذلك. المنطق هو العثور على الفراغ الأول (أي بعد العنوان) واستخدام هذا الموضع في منتصف الوظيفة.
اكتب في C2
السيد جون سميث أو ملكة جمال غابرييل سميث
وانظر ماذا يحدث في خلية الصيغة
- 2) قمت بتضمين اسم الأوراق قبل علامة التعجب.
لنفترض أن السيد john smith في الورقة C2 من الخلية
ثم في أي ورقة أخرى وفي أي نسخة فارغة هذه الصيغة
= MID (Sheet1! C2 ، بحث ("" ، Sheet1! C2) + 1 ، LEN (Sheet1! C2) -SEARCH ("" ، Sheet1! C2) +1)
تجربة مع هذه الصيغة