كيفية استخراج قائمة القيم الفريدة ديناميكيًا من نطاق أعمدة في Excel؟

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

استخرج ديناميكيًا قائمة بالقيم الفريدة من نطاق أعمدة باستخدام الصيغة
استخرج ديناميكيًا قائمة بالقيم الفريدة من نطاق أعمدة برمز VBA

استخرج ديناميكيًا قائمة بالقيم الفريدة من نطاق أعمدة باستخدام الصيغة

كما هو موضح أدناه ، تحتاج إلى استخراج قائمة القيم الفريدة ديناميكيًا من النطاق B2: B9. يرجى تجربة صيغة الصفيف التالية.

1. حدد خلية فارغة مثل D2 ، أدخل الصيغة أدناه واضغط على CTRL + تغير + أدخل مفاتيح في نفس الوقت. (B2: B9 هي بيانات العمود التي تريد استخراج القيم الفريدة ، D1 هي الخلية أعلاه حيث توجد الصيغة الخاصة بك)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2. استمر في تحديد الخلية D2 ، ثم اسحب مقبض التعبئة لأسفل للحصول على جميع القيم الفريدة من النطاق المحدد.

الآن يتم استخراج جميع القيم الفريدة في نطاق العمود B2: B9. عندما تتغير القيم في هذا النطاق ، سيتم تغيير قائمة القيم الفريدة ديناميكيًا على الفور.

استخرج ديناميكيًا قائمة بالقيم الفريدة من نطاق أعمدة برمز VBA

يمكنك أيضًا استخراج قائمة بالقيم الفريدة ديناميكيًا من نطاق أعمدة برمز VBA التالي.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز VBA أدناه في ملف وحدة نافذة.

رمز فبا: استخراج قائمة من القيم الفريدة من نطاق

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

ملاحظة: في الكود ، D2 هي الخلية التي ستحدد فيها قائمة القيم الفريدة. يمكنك تغييره كما تريد.

3. ارجع إلى ورقة العمل ، انقر فوق إدراج > الأشكال > مستطيل. انظر لقطة الشاشة:

4. ارسم مستطيلاً في ورقة العمل الخاصة بك ، ثم أدخل بعض الكلمات التي تريد عرضها عليها. ثم انقر بزر الماوس الأيمن فوقه وحدده تعيين ماكرو من قائمة النقر بزر الماوس الأيمن. في ال تعيين ماكرو في مربع الحوار ، حدد ملف إنشاء قائمة فريدة في ال اسم الماكرو مربع ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

5. انقر الآن على زر المستطيل ، أ كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد النطاق الذي يحتوي على قيم فريدة تحتاج إلى استخراجها ، ثم انقر فوق OK .

من الآن فصاعدًا ، يمكنك تكرار الخطوة 5 أعلاه لتحديث قائمة القيم الفريدة تلقائيًا.

مقالات ذات صلة:

• كيفية إنشاء تقويم شهري ديناميكي في Excel؟
• كيفية إدراج صورة أو صورة ديناميكيًا في الخلية بناءً على قيمة الخلية في Excel؟
• كيفية إنشاء ارتباط تشعبي ديناميكي لورقة أخرى في Excel؟

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...