كيفية نسخ ولصق الخلايا غير الفارغة فقط في Excel؟
قد يعاني معظمنا من هذه المشكلة، عندما نقوم بنسخ قائمة من البيانات التي تحتوي على بعض الخلايا الفارغة، ثم نلصقها في عمود آخر، سيتم لصق الخلايا الفارغة أيضًا. هذا مزعج جدًا عندما لا نحتاج إلى الفراغات ونريد لصق الخلايا غير الفارغة فقط. في هذه الحالة، كيف يمكننا نسخ ولصق الخلايا غير الفارغة فقط في Excel بسرعة وسهولة؟ إليكم بعض الحيل السريعة لحل هذه المشكلة:
نسخ ولصق الخلايا غير الفارغة فقط باستخدام أمر Go To Special
نسخ ولصق الخلايا غير الفارغة فقط باستخدام Kutools لـ Excel 
نسخ ولصق الخلايا غير الفارغة فقط باستخدام ميزة التصفية
نسخ ولصق الخلايا غير الفارغة فقط باستخدام صيغة المصفوفة
نسخ ولصق الخلايا غير الفارغة فقط باستخدام كود VBA
نسخ ولصق الخلايا غير الفارغة فقط باستخدام أمر Go To Special
باستخدام أمر Go To Special، يمكنك تحديد جميع البيانات أولاً، ثم نسخها ولصقها في موقع آخر.
1. حدد قائمة البيانات التي تريد استخدامها.
2. ثم انقر فوق Home > Find & Select > Go To Special، شاهد لقطة الشاشة:
3. في مربع الحوار Go To Special، قم بتحديد خيار Constants، شاهد لقطة الشاشة:
4. ثم انقر فوق OK، وسيتم تحديد الخلايا ذات القيم فقط في القائمة.
5. وبعد ذلك قم بنسخ ولصق البيانات إلى الموقع الذي تريده. وسيتم لصق قيم الخلايا غير الفارغة فقط. شاهد لقطة الشاشة:
ملاحظة: هذه الطريقة متاحة فقط للثوابت، ولا يتم تطبيقها على خلايا الصيغ.
نسخ ولصق الخلايا غير الفارغة فقط باستخدام Kutools لـ Excel
هل هناك طريقة أسهل من تلك المذكورة أعلاه؟ بالطبع، يمكن لأداة Select Nonblank Cells في Kutools لـ Excel أن تساعدك في تحديد الخلايا غير الفارغة أولاً، ثم نسخها ولصقها.
بعد تثبيت Kutools لـ Excel مجانًا ، يرجى القيام بما يلي:
1. حدد نطاق الخلية، وانقر فوق Kutools > Select > Select Nonblank Cells. شاهد لقطة الشاشة:
2. بعد ذلك يتم تحديد الخلايا غير الفارغة، اضغط على Ctrl + C لنسخها، ثم انتقل إلى تحديد الخلية حيث تريد إخراج النتيجة الملصوقة واضغط على Ctrl + V لصق الخلايا غير الفارغة المحددة. شاهد لقطة الشاشة:
نسخ ولصق الخلايا غير الفارغة فقط باستخدام ميزة التصفية
يمكن لميزة التصفية مساعدتك في تصفية الخلايا غير الفارغة أولاً، وبعد ذلك يمكنك نسخها ولصقها في خلايا أخرى حسب الحاجة.
2. انقر فوق Data > Filter، شاهد لقطة الشاشة:
3. ثم انقر فوق زر القائمة المنسدلة في الزاوية اليمنى من الخلية في القائمة المحددة، وألغِ تحديد الخيار Blanks تحت القائمة المنسدلة. شاهد لقطة الشاشة:
4. وبعد ذلك انقر فوق OK، سيتم تصفية جميع الخلايا غير الفارغة كما هو موضح في لقطة الشاشة التالية:
5. أخيرًا، يمكنك نسخ البيانات المُرشحة ولصقها في أي مكان تحتاج إليه.
ملاحظة: كل من القيم والصيغ تتأثر باستخدام هذه الطريقة.
نسخ ولصق الخلايا غير الفارغة فقط باستخدام صيغة المصفوفة
لنسخ ولصق الخلايا غير الفارغة فقط، يمكنك أيضًا تطبيق صيغة المصفوفة التالية.
1. بجانب بياناتك، أدخل الصيغة التالية في خلية فارغة:
=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
ملاحظة: في الصيغة أعلاه، A1:A15 هي قائمة البيانات التي تريد استخدامها. يمكنك تغييرها حسب حاجتك.
2. ثم اضغط معًا على مفاتيح Shift + Ctrl + Enter، وبعد ذلك حدد الخلية B1، واسحب مقبض التعبئة إلى النطاق الذي تريد أن يحتوي على هذه الصيغة، وسيتم استخراج جميع قيم الخلايا غير الفارغة. شاهد لقطة الشاشة:
3. بما أنها صيغ، عند نسخها إلى مكان آخر، يجب عليك نسخها ولصقها كقيم.
ملاحظة: هذه الصيغة متاحة فقط للثوابت، ولا يتم تطبيقها على خلايا الصيغ.
نسخ ولصق الخلايا غير الفارغة فقط باستخدام كود VBA
إذا كنت مهتمًا بكود VBA، يمكنك تنفيذ الكود التالي لإكمال هذه المهمة.
1. اضغط معًا على مفاتيح ALT + F11، ويفتح لك نافذة Microsoft Visual Basic for Applications.
2. انقر فوق Insert > Module، والصق الكود التالي في نافذة الوحدة.
كود VBA: نسخ ولصق الخلايا غير الفارغة فقط في Excel
Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
MsgBox "Please select one column."
Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub
3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر مربع رسالة لتذكيرك باختيار نطاق البيانات الذي تريد استخدامه. شاهد لقطة الشاشة:
4. وبعد ذلك انقر فوق OK، سيظهر مربع رسالة آخر ليدعوك لاختيار خلية لوضع البيانات فيها.
5. انقر فوق OK لإنهاء هذا الكود، وسيتم لصق قيم الخلايا غير الفارغة فقط في الموقع المحدد.
ملاحظة: هذا الكود متاح فقط للثوابت.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد