كيفية إنشاء قائمة بقيم فريدة عبر أوراق عمل متعددة في Excel؟
عند العمل مع بيانات موزعة عبر أوراق عمل متعددة في Excel، قد تحتاج إلى تجميع المعلومات وإنشاء قائمة بالقيم الفريدة. على الرغم من أن Excel لا يوفر ميزة مضمنة مباشرة لهذه المهمة، إلا أن هناك عدة طرق لتحقيق ذلك. ستقودك هذه المقالة خلال ثلاث طرق عملية لإنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة.
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة باستخدام كود VBA
لإدراج جميع القيم الفريدة من كل الأوراق، يمكن أن يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:
1. اضغط مع الاستمرار على مفتاحي "ALT + F11" لفتح نافذة "Microsoft Visual Basic for Applications".
2. انقر فوق "إدراج" > "وحدة"، والصق ما يلي من الماكرو في نافذة الوحدة.
كود 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 لتشغيل هذا الكود، وسيتم إنشاء ورقة عمل جديدة باسم القيم الفريدة ويتم سرد الأسماء الفريدة في العمود A من كل الأوراق كما هو موضح في لقطة الشاشة التالية:
إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة باستخدام Kutools AI Aide
في هذا القسم، سنوضح لك كيفية إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة بسهولة باستخدام Kutools AI Aide.
انقر فوق "Kutools" > "AI Aide" لفتح لوحة "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) في صفيف عمودي واحد.
- 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد