كيفية استخراج قائمة القيم الفريدة ديناميكيًا من نطاق أعمدة في 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؟