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

كيفية نسخ ولصق الخلايا غير الفارغة فقط في إكسيل؟

قد يعاني معظمنا من هذه المشكلة ، عندما نقوم بنسخ قائمة بيانات تحتوي على بعض الخلايا الفارغة ، ثم لصقها في عمود آخر ، سيتم أيضًا لصق الخلايا الفارغة أيضًا. هذا أمر مزعج للغاية عندما لا نحتاج إلى الفراغات ونريد لصق الخلايا غير الفارغة فقط. في هذه الحالة ، كيف يمكننا نسخ ولصق الخلايا غير الفارغة فقط في Excel بسرعة وسهولة؟ إليك بعض الحيل السريعة لحلها:

انسخ والصق الخلايا غير الفارغة فقط باستخدام الأمر Go To Special

نسخ ولصق الخلايا غير الفارغة فقط باستخدام ميزة التصفية

انسخ والصق الخلايا غير الفارغة فقط باستخدام صيغة Array Formula

انسخ والصق الخلايا غير الفارغة فقط برمز VBA

انسخ والصق الخلايا غير الفارغة فقط باستخدام Kutools for Excel فكرة جيدة 3


السهم الأزرق الحق فقاعة انسخ والصق الخلايا غير الفارغة فقط باستخدام الأمر Go To Special

مع انتقل إلى خاص الأمر ، يمكنك تحديد جميع البيانات أولاً ، ثم نسخها ولصقها في موقع آخر.

1. حدد قائمة البيانات التي تريد استخدامها.

وثيقة نسخة فقط غير فارغة1

2. ثم اضغط الرئيسية > بحث وتحديد > انتقل إلى خاص، انظر لقطة الشاشة:

وثيقة نسخة فقط غير فارغة1

3. في انتقل إلى خاص مربع الحوار ، تحقق ثابت الخيار ، انظر لقطة الشاشة:

وثيقة نسخة فقط غير فارغة1

4. ثم اضغط OK، وتم تحديد خلايا القيمة فقط في القائمة.

وثيقة نسخة فقط غير فارغة1

5. ثم انسخ البيانات والصقها في الموقع الذي تريده. وتم لصق قيم الخلايا غير الفارغة فقط. انظر لقطة الشاشة:

وثيقة نسخة فقط غير فارغة1

ملاحظات: هذه الطريقة متاحة فقط للثوابت ، ولا يتم تطبيقها على خلايا الصيغة.


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

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

2. انقر البيانات > منقي، انظر لقطة الشاشة:

نسخ المستند فقط nonblanks6

3. ثم انقر فوق زر القائمة المنسدلة في الزاوية اليمنى للخلية في القائمة المحددة ، وقم بإلغاء تحديد الفراغات الخيار تحت القائمة المنسدلة. انظر لقطة الشاشة:
وثيقة نسخة فقط غير فارغة1

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

وثيقة نسخة فقط غير فارغة1

5. أخيرًا ، يمكنك نسخ البيانات التي تمت تصفيتها ولصقها في أي مكان تريده.

ملاحظات: يتم تفعيل كل من القيم والصيغ باستخدام هذه الطريقة.


حدد خلايا غير فارغة مرة واحدة

انقر للحصول على النسخة التجريبية المجانية الكاملة خلال 30 يومًا!
حدد doc kutools خلايا غير فارغة

السهم الأزرق الحق فقاعة انسخ والصق الخلايا غير الفارغة فقط باستخدام صيغة Array Formula

لنسخ ولصق الخلايا غير الفارغة فقط ، يمكنك أيضًا تطبيق صيغة الصفيف التالية.

1. إلى جانب البيانات الخاصة بك ، أدخل الصيغة التالية في خلية فارغة:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

وثيقة نسخة فقط غير فارغة1

ملاحظات: في الصيغة أعلاه ، A1: A15 هي قائمة البيانات التي تريد استخدامها. يمكنك تغييرها حسب حاجتك.

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

وثيقة نسخة فقط غير فارغة1

3. نظرًا لأنها صيغ ، عند نسخها إلى مكان آخر ، يجب نسخها ولصقها كقيم.

ملاحظات: هذه الصيغة متاحة فقط للثوابت ، ولا يتم تطبيقها على خلايا الصيغة.


السهم الأزرق الحق فقاعة انسخ والصق الخلايا غير الفارغة فقط برمز VBA

إذا كنت مهتمًا برمز VBA ، فيمكنك تنفيذ التعليمات البرمجية التالية لإنهاء هذه المهمة.

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

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

رمز فبا: نسخ ولصق فقط الخلايا غير الفارغة في إكسيل

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 مفتاح لتشغيل هذا الرمز ، سيظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد استخدامه. انظر لقطة الشاشة:

وثيقة نسخة فقط غير فارغة1

4. ثم انقر فوق OK، سيظهر مربع موجه آخر للسماح لك باختيار خلية لوضع البيانات.

وثيقة نسخة فقط غير فارغة1

5. انقر OK لإنهاء هذا الرمز ، ولم يتم لصق سوى قيم الخلايا غير الفارغة في الموضع المحدد.

ملاحظات: هذا الكود متاح فقط للثوابت.


السهم الأزرق الحق فقاعة انسخ والصق الخلايا غير الفارغة فقط باستخدام Kutools for Excel

هل هناك طريقة أسهل بكثير مما سبق؟ بالطبع، كوتولس ل إكسيل's حدد خلية غير فارغةيمكن أن تساعدك الأداة المساعدة في تحديد الخلايا غير الفارغة أولاً ، ثم نسخها ولصقها.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد نطاق الخلايا ، وانقر فوق كوتولس > أختار > حدد الخلايا غير الفارغة. انظر لقطة الشاشة:
حدد doc خلية غير فارغة 2

2. ثم يتم تحديد الخلايا غير الفارغة ، اضغط CTRL + C لنسخها ، ثم انتقل لتحديد الخلية التي تريد إخراج النتيجة المرحلية فيها ، اضغط على CTRL + V للصق الخلايا المحددة غير الفارغة. انظر لقطة الشاشة:
حدد doc خلية غير فارغة 3

السهم الأزرق الحق فقاعة نسخ ولصق خلية غير فارغة فقط

Kutools for Excel: أكثر من 300 وظيفة يجب أن تكون لديك في Excel، نسخة تجريبية مجانية لمدة 30 يومًا من هنا

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
=Filter(A:A,A:A<>"")
This comment was minimized by the moderator on the site
Array formula Works fine on text
but don't work on numbers.
This comment was minimized by the moderator on the site
Not working on Numbers !!!
Works fine on text !!!
Please guide
This comment was minimized by the moderator on the site
Thanks for the great tips! I am using the Find & Select feature, but it's taking a long time because my spreadsheet contains 70 columns and 450k rows. Is there a way to fasten the process?
This comment was minimized by the moderator on the site
When i select and copy only non-blank cells, how can i then paste it somewhere else with keeping the same empty ranges between them?
This comment was minimized by the moderator on the site
These tools delete the blank cells and compress the row. I want the format to be retained, including the spaces, but I do not want empty cells to overwrite cells containing existing data. i.e. I want to add the new, copied, cells in a column onto an existing column.
This comment was minimized by the moderator on the site
Hi #abc I have used your formula =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMAL L(IF('List of Overdue items'!A$1:A$15 00"",ROW('List of Overdue items'!A$1:A$15 00)),ROWS('List of Overdue items'!B$1:B2)) ))) I have data in one Worksheet and want to copy that data into another worksheet (same doc). Can you help?
This comment was minimized by the moderator on the site
Is there a way to make the macro work when referencing between different sheets?
This comment was minimized by the moderator on the site
This formula is absolutely amazing, thank you. Unfortunately it breaks when trying to copy from another sheet, is there a workaround?
This comment was minimized by the moderator on the site
correct the references when using the formula between different sheets. It does work. =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMALL(IF('List of Overdue items'!A$1:A$1500"",ROW('List of Overdue items'!A$1:A$1500)),ROWS('List of Overdue items'!B$1:B2)))))
This comment was minimized by the moderator on the site
thanks for the super formula: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations