انتقل إلى المحتوى الرئيسي

كيفية استبدال الخلايا غير الفارغة بقيمة محددة في إكسيل؟

في Excel ، يمكننا استبدال أو ملء التحديد بسرعة وسهولة بقيمة محددة عن طريق الضغط كترل + إنتر ولكن هل تعرف كيفية استبدال الخلايا غير الفارغة بقيمة معينة في النطاق المحدد الذي يحتوي على كل من الخلايا الفارغة وخلايا القيمة.

استبدل الخلايا غير الفارغة بقيمة محددة باستخدام ميزة البحث والاستبدال

استبدل الخلايا غير الفارغة بقيمة محددة باستخدام التعليمات البرمجية لـ VBA


السهم الأزرق الحق فقاعة استبدل الخلايا غير الفارغة بقيمة محددة باستخدام ميزة البحث والاستبدال

في Excel ، يمكن أن تساعدنا ميزة البحث والاستبدال في العثور على جميع الخلايا غير الفارغة ثم استبدالها بقيمة محددة كما تريد.

1. حدد نطاق البيانات الذي تريد استبدال خلايا القيمة فقط.

2. ثم اضغط كترل + H لفتح بحث واستبدال مربع الحوار ، في بحث واستبدال الحوار تحت استبدل علامة التبويب ، اكتب * في ال تجد ما ، وأدخل القيمة التي تريدها استبدال مربع النص ، انظر لقطة الشاشة:

وثيقة-استبدال-غير-الفراغات-1

3. ثم اضغط استبدال الكل ، وانبثق مربع حوار لإخبارك بعدد الخلايا المراد استبدالها ، وأغلق الحوارات ، ثم تم استبدال جميع القيم في النطاق المحدد ببياناتك المحددة ، انظر لقطات الشاشة:

وثيقة-استبدال-غير-الفراغات-2 -2 وثيقة-استبدال-غير-الفراغات-3

السهم الأزرق الحق فقاعة استبدل الخلايا غير الفارغة بقيمة محددة باستخدام التعليمات البرمجية لـ VBA

باستخدام رمز VBA التالي ، يمكنك أيضًا استبدال جميع خلايا البيانات بالقيم المطلوبة مرة واحدة. يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: استبدل الخلايا غير الفارغة بقيمة محددة

Sub ReplaceNumbers()
'Update 20141111
    Dim SRg As Range
    Dim Rg As Range
    Dim Str As Variant
    On Error Resume Next
    Set SRg = Application.Selection
    Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
    If Err <> 0 Then Exit Sub
    Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
    If Str = False Then Exit Sub
    For Each Rg In SRg
        If Rg <> "" Then Rg = Str
    Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي تريد استبدال البيانات ، انظر لقطة الشاشة:

وثيقة-استبدال-غير-الفراغات-1

4. ثم اضغط OK، وأدخل القيمة المحددة الخاصة بك في مربع المطالبة التالي ، انظر لقطة الشاشة:

وثيقة-استبدال-غير-الفراغات-1

5. ثم انقر فوق OK، تم استبدال جميع القيم الموجودة في النطاق المحدد ببيانات معينة مرة واحدة.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
где только берут такие крутые формулы, как эта в vba?! очень круто, спасибо
Rated 5 out of 5
This comment was minimized by the moderator on the site
So, I have this report I imported from my payroll system, but it contains a lot of information I do not need, on some fields and other that I want to keep on the next cells, so I'm looking for a way to replace for example all of the addresses with blank cells. I cannot delete the whole row because I have the dept number on the same row on the left. Can somebody help me?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations