كيف تُنشئ قائمة بالقيم الفريدة من أوراق عمل متعددة في Excel؟
عند التعامل مع بيانات موزعة عبر أوراق عمل متعددة في Excel، قد تحتاج إلى توحيد المعلومات وإنشاء قائمة بالقيم الفريدة. وعلى الرغم من أن Excel لا يوفّر ميزة مدمجة مباشرة لهذا الغرض، إلا أن هناك عدة طرق فعّالة لتحقيقه. سيأخذك هذا المقال خطوة بخطوة عبر ثلاث طرق عملية لإنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة.
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة باستخدام كود VBA
للحصول على قائمة بجميع القيم الفريدة من جميع أوراق العمل، يمكنك استخدام كود VBA التالي. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفاتيح «ALT + F11» لفتح نافذة «Microsoft Visual Basic for Applications».
2. انقر على «إدراج» > «وحدة برمجية (Module)»، ثم الصق الماكرو التالي في نافذة الوحدة.
كود VBA: إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة:
Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
If xObjWS.Name = xStrName Then
xObjWS.Delete
Exit For
End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xMaxC < xColumn Then
xMaxC = xColumn
End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
xIntN = 1
For xFNum = 1 To Sheets.Count - 1
Set xR = Sheets(xFNum).Columns(xColumn)
If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
Cells(xIntN, xColumn).PasteSpecial xlValues
xIntN = xIntRox + xIntN + 1
End If
Next xFNum
If xIntRox - 1 > 0 Then
xIntRox = xIntN - 1
xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range(xStrAddress).Copy
Cells(1, xColumn + 1).PasteSpecial xlValues
Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
Columns(xColumn).Delete
Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. بعد لصق الكود أعلاه، اضغط F5 لتشغيله، وسيتم إنشاء ورقة جديدة باسم «Unique value» تحتوي في العمود A على جميع الأسماء الفريدة من جميع الأوراق، كما هو موضح في لقطة الشاشة التالية:
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة باستخدام KUTOOLS AI Aide
في هذا القسم، سنوضح لك كيفية إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة بسهولة باستخدام KUTOOLS AI Aide.
انقر على «Kutools» > «مساعد الذكاء الاصطناعي» لفتح جزء «KUTOOLS AI Aide»، ثم قم بالعمليات التالية في الجزء:
- اكتب المتطلَّب في مربع الدردشة، على سبيل المثال:
استخرج جميع القيم الفريدة في العمود A من جميع أوراق العمل في هذا المصنف، واذكر القيم الفريدة في ورقة جديدة - ثم اضغط مفتاح الإدخال (Enter) أو انقر على زر «إرسال». سيقوم KUTOOLS AI بتحليل سؤالك، وبعد الانتهاء، انقر على زر «تنفيذ» لعرض جميع القيم الفريدة من الأوراق المتعددة في ورقة جديدة، كما هو موضح في العرض التوضيحي التالي:
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة باستخدام صيغة (Excel 365)
إذا كنت ترغب في إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة في Excel باستخدام صيغة، فبإمكانك تحقيق ذلك بسلاسة عبر دمج دوال المصفوفة الديناميكية مثل **UNIQUE** و**VSTACK** في Excel 365.
أدخل الصيغة التالية في خلية فارغة، ثم اضغط مفتاح الإدخال (Enter) لاستخراج القيم الفريدة من عمود واحد عبر أوراق متعددة. راجع لقطة الشاشة:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKيجمع عدة نطاقات (مثل Sheet1!A1:A11، Sheet2!A1:A11، Sheet3!A1:A11، Sheet3!A1:A11) في مصفوفة عمودية واحدة.
- UNIQUEيزيل القيم المكررة من القائمة المدمجة ويعيد القيم الفريدة فقط.
- A1:A11عدّل النطاق ليشمل نطاق بياناتك الفعلي.
في هذا المقال، استعرضنا ثلاث طرق فعّالة لإنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة في Excel. ولكل طريقة مزاياها، مما يتيح لك اختيار الأنسب منها بناءً على إصدار Excel الذي تستخدمه، ومستوى مهارتك، واحتياجاتك الخاصة. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel،يقدّم موقعنا آلاف الدروس التعليمية.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل