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

باستخدام كود VBA التالي، يمكنك بسهولة إنشاء قائمة من الخلايا المحددة عبر أوراق عمل متعددة. اتبع الخطوات التالية:

الخطوة 1: حدد الخلية التي ستنشئ منها قائمتك. في حالتنا، نختار الخلية E6.

الخطوة 2: اضغط معًا على مفاتيحAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications، ثم انقر علىإدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

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

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

الخطوة 3: اضغط على مفتاحF5 أو انقر على زرتشغيللتشغيل هذا الكود البرمجي (VBA).

بعد ذلك، يتم نسخ جميع القيم من الخلية المحددة في جميع أوراق العمل إلى ورقة عمل جديدة باسم «KutoolsforExcel». راجع لقطة الشاشة:

سيقوم كود VBA هذا بملء القائمة في ورقة عمل جديدة، حيث تكون القيم المدرجة في القائمة ثابتة ولا تتغير تبعًا للقيم الأصلية.

ومع ذلك، قد ترغب أحيانًا في ملء القائمة ضمن نطاق محدود، مع ضمان بقاء قيمها دائمًا مطابقة للقيم الأصلية في الخلايا المحددة. ولتلبية هذه الحاجة، جرّب الطريقة التالية.

تُقدّم هذه الطريقة أداةKutools لـ Excel’s زيادة تلقائية لمراجع ورقة العمللإنشاء قائمة ديناميكية من نفس الخلايا عبر أوراق عمل متعددة.

الخطوة 1: حدد النطاق الذي تريد ملء القائمة الديناميكية فيه، ثم انقر علىKutools > المزيد > زيادة تلقائية لمراجع ورقة العمل.

الخطوة 2: في مربع الحوار ملء مراجع ورقة العمل المفتوح،

(1) انقر على مربعترتيب التعبئة، ثم اختر نوع الملء من القائمة المنسدلة. في حالتنا، نختارتعبئة حسب العمود، ثم حسب الصف؛

(2) في مربعصيغة الملء، حدد عنوان الخلية التي ستنشئ منها القائمة الديناميكية، ثم انقر على زرقفل لقفل الصيغة.

(3) انقر على زرتعبئة النطاق.

الآن سترى أن القيم الموجودة في الخلايا المحددة عبر جميع أوراق العمل قد تم ملؤها في نطاق محدود كما هو موضح في لقطة الشاشة أدناه:

عند تغيير القيم الأصلية، تتغيّر القيم المقابلة في هذه القائمة المحددة تلقائيًا.

كيف يمكن ملء خلية واحدة تلقائيًا من أوراق عمل مختلفة إلى ورقة واحدة في Excel؟