كيفية نسخ البيانات إلى ورقة عمل أخرى باستخدام مرشح متقدم في إكسيل؟
عادة ، يمكننا تطبيق ملف تصفية متقدم ميزة لاستخراج البيانات من البيانات الأولية في نفس ورقة العمل. لكن ، في بعض الأحيان ، عندما تحاول نسخ النتيجة المصفاة إلى ورقة عمل أخرى ، ستصلك رسالة التحذير التالية. في هذه الحالة ، كيف يمكنك التعامل مع هذه المهمة في Excel؟
انسخ البيانات إلى ورقة عمل أخرى باستخدام التصفية المتقدمة باستخدام ميزة التصفية المتقدمة
انسخ البيانات إلى ورقة عمل أخرى باستخدام عامل التصفية المتقدم باستخدام التعليمات البرمجية لـ VBA
انسخ البيانات إلى ورقة عمل أخرى باستخدام التصفية المتقدمة باستخدام ميزة التصفية المتقدمة
إليك حل بسيط لحل هذه الوظيفة ، يرجى القيام بذلك على النحو التالي:
1. قم بتنشيط ورقة العمل حيث تريد نسخ النتيجة المصفاة باستخدام وظيفة التصفية المتقدمة.
2. ثم اضغط البيانات > متقدم، انظر لقطة الشاشة:
3. في تصفية متقدم مربع الحوار، حدد انسخ إلى مكان آخر من اكشن ، ثم انقر فوق لتحديد نطاق البيانات الذي تريد تصفيته في ورقة أخرى بجانب نطاق القائمة، استمر في النقر بجانب وتتراوح المعايير لتحديد المعايير من ورقة أخرى ، انظر الصورة:
4. ثم اضغط بجانب نسخ الى مربع لتحديد خلية حيث تريد إخراج النتيجة المصفاة من الورقة النشطة ، ثم انقر فوق OK ، فقد تم استخراج النتيجة المصفاة في ورقة أخرى بناءً على ورقة البيانات الأصلية.
انسخ البيانات إلى ورقة عمل أخرى باستخدام عامل التصفية المتقدم باستخدام التعليمات البرمجية لـ VBA
إذا كنت ماهرًا برمز VBA ، فيمكنك إنهاء هذه المهمة باستخدام رمز VBA التالي.
1. قم بتنشيط ورقة العمل التي تريد تصفيتها ونسخ النتيجة إلى ورقة أخرى.
2. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: انسخ البيانات إلى ورقة عمل أخرى باستخدام عامل التصفية المتقدم:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه للسماح لك بتحديد نطاق البيانات الذي تريد تصفيته ، انظر لقطة الشاشة:
5. ثم اضغط OK، ويظهر مربع حوار آخر لتذكيرك بتحديد نطاق المعايير الذي تريد التصفية بناءً عليه ، انظر لقطة الشاشة:
6. استمر في النقر OK، في مربع الحوار المنبثق ، يرجى تحديد خلية من ورقة عمل جديدة أخرى حيث تريد إخراج نتيجة التصفية ، انظر لقطة الشاشة:
7. أخيرًا ، انقر فوق OK زر ، تم إخراج البيانات التي تمت تصفيتها في ورقة أخرى محددة حسب حاجتك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!