كيفية استبدال الخلايا غير الفارغة بقيمة محددة في إكسيل؟
في Excel ، يمكننا استبدال أو ملء التحديد بسرعة وسهولة بقيمة محددة عن طريق الضغط كترل + إنتر ولكن هل تعرف كيفية استبدال الخلايا غير الفارغة بقيمة معينة في النطاق المحدد الذي يحتوي على كل من الخلايا الفارغة وخلايا القيمة.
استبدل الخلايا غير الفارغة بقيمة محددة باستخدام ميزة البحث والاستبدال
استبدل الخلايا غير الفارغة بقيمة محددة باستخدام التعليمات البرمجية لـ VBA
استبدل الخلايا غير الفارغة بقيمة محددة باستخدام ميزة البحث والاستبدال
في Excel ، يمكن أن تساعدنا ميزة البحث والاستبدال في العثور على جميع الخلايا غير الفارغة ثم استبدالها بقيمة محددة كما تريد.
1. حدد نطاق البيانات الذي تريد استبدال خلايا القيمة فقط.
2. ثم اضغط كترل + H لفتح بحث واستبدال مربع الحوار ، في بحث واستبدال الحوار تحت استبدل علامة التبويب ، اكتب * في ال تجد ما ، وأدخل القيمة التي تريدها استبدال مربع النص ، انظر لقطة الشاشة:
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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي تريد استبدال البيانات ، انظر لقطة الشاشة:
4. ثم اضغط OK، وأدخل القيمة المحددة الخاصة بك في مربع المطالبة التالي ، انظر لقطة الشاشة:
5. ثم انقر فوق OK، تم استبدال جميع القيم الموجودة في النطاق المحدد ببيانات معينة مرة واحدة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!