كيفية نسخ ولصق الخلايا غير الفارغة فقط في 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.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!