كيفية استخراج قائمة القيم الفريدة ديناميكيًا من نطاق أعمدة في 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. عندما تتغير القيم في هذا النطاق ، سيتم تغيير قائمة القيم الفريدة ديناميكيًا على الفور.
حدد بسهولة وتمييز جميع القيم الفريدة في نطاق في Excel:
• حدد الخلايا الفريدة والمكررة فائدة كوتولس ل إكسيل يمكن أن يساعدك في تحديد وإبراز جميع القيم الفريدة بسهولة (بما في ذلك التكرارات الأولى) أو القيم الفريدة التي تظهر مرة واحدة فقط ، بالإضافة إلى القيم المكررة حسب حاجتك كما هو موضح أدناه.
قم بتنزيل Kutools لبرنامج Excel الآن! (تجربة مجانية لمدة 30 يومًا)
استخرج ديناميكيًا قائمة بالقيم الفريدة من نطاق أعمدة برمز 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؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
