كيفية إنشاء قائمة بقيم فريدة عبر أوراق عمل متعددة في Excel؟

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

إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة

• باستخدام كود VBA
• باستخدام Kutools AI Aide
• باستخدام الصيغة (Excel 365)

إنشاء قائمة بالقيم الفريدة من أوراق عمل متعددة باستخدام كود 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"، وفي اللوحة، يرجى القيام بالعمليات التالية:

1. اكتب الطلب في مربع الدردشة: مثل:
   استخرج جميع القيم الفريدة في العمود A من كل أوراق عمل هذا المصنف وضع القيم الفريدة في ورقة جديدة
2. ثم اضغط على مفتاح 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))

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