كيفية الإشارة إلى نفس الخلية من عدة أوراق عمل في Excel؟

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

الإشارة إلى نفس الخلية من عدة أوراق عمل إلى ورقة رئيسية واحدة باستخدام صيغة

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

الإشارة إلى نفس الخلية من عدة أوراق عمل إلى ورقة رئيسية واحدة باستخدام ميزة رائعة

الإشارة إلى نفس الخلية من عدة أوراق عمل إلى ورقة رئيسية واحدة باستخدام صيغة

إذا كانت أسماء أوراق العمل الخاصة بك هي الأسماء الافتراضية مثل Sheet1 وSheet2 وSheet3... يمكنك استخدام صيغة للتعامل مع هذه المهمة بسرعة في Excel.

1. أولاً، يجب عليك إنشاء قائمة بأرقام المساعدة، يرجى إدخال الأرقام المتتالية 1، 2، 3، 4... التي تشير إلى أوراق العمل التي تحتاج إلى الإشارة إليها، انظر لقطة الشاشة:

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

ملاحظة: في الصيغة أعلاه، E2 هو رقم المساعدة الذي أدخلته في الخطوة 1، وB8 هو مرجع الخلية الذي تريد استخراجه. تعمل هذه الصيغة بشكل جيد فقط إذا كانت أسماء الأوراق هي Sheet1 وSheet2 وSheet3...

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

إذا كان هناك العشرات من أوراق العمل التي تحتوي على أسماء مختلفة بدلاً من Sheet1 وsheet2، في هذه الحالة، يمكن أن يساعدك الكود التالي VBA في ملء مراجع الخلية نفسها من عدة أوراق عمل إلى ورقة عمل واحدة دفعة واحدة.

1. في الورقة الرئيسية، انقر فوق الخلية B8 وهي الخلية التي تريد استخراجها من أوراق العمل الأخرى.

2. اضغط باستمرار على مفتاح ALT + F11، وسيفتح نافذة Microsoft Visual Basic for Applications.

3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: الإشارة إلى نفس الخلية من عدة أوراق عمل

Sub AutoFillSheetNames()
'Update by Extendoffice
Dim ActRng As Range
Dim ActWsName As String
Dim ActAddress As String
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ActRng = Application.ActiveCell
ActWsName = Application.ActiveSheet.Name
ActAddress = ActRng.Address(False, False)
Application.ScreenUpdating = False
xIndex = 0
For Each Ws In Application.Worksheets
If Ws.Name <> ActWsName Then
ActRng.Offset(xIndex, 0).Value = "='" & Ws.Name & "'!" & ActAddress
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
End Sub

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

ملاحظة: يتم تطبيق هذا الكود VBA لملء الخلايا التي تنقر عليها. على سبيل المثال، إذا نقرت على الخلية A1 في ورقة عمل محددة، سيتم ملء جميع قيم الخلية A1 من أوراق العمل الأخرى في هذه الورقة.

الإشارة إلى نفس الخلية من عدة أوراق عمل إلى ورقة رئيسية واحدة باستخدام ميزة رائعة

إذا لم تكن معتادًا على كود VBA، هنا، يمكنني أن أقدم لك أداة مفيدة - Kutools لـ Excel، باستخدام أداة زيادة تلقائية لمراجع ورقة العمل، يمكنك ملء مراجع الخلايا من عدة أوراق عمل في Excel بسهولة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. انقر فوق الخلية B8 داخل الورقة الرئيسية والتي تريد استخراجها من أوراق العمل الأخرى.

2. ثم انقر فوق Kutools > المزيد > زيادة تلقائية لمراجع ورقة العمل، انظر لقطة الشاشة:

3. في مربع الحوار ملء مراجع أوراق العمل، اختر تعبئة حسب العمود، ثم حسب الصف من ترتيب التعبئة، وانقر على القفل الصغير بجانب مربع نص الصيغة، وسيتحول القفل الرمادي إلى قفل أصفر، مما يعني أن الصيغة ومراجع الخلايا قد تم قفلها، ثم يمكنك النقر فوق أي خلية لاستخراج مراجع الخلية B8 من أوراق العمل الأخرى، في هذا المثال سأنقر على الخلية B2. بعد ذلك، حدد أوراق العمل التي تريد استخراج مراجع الخلايا منها. انظر لقطة الشاشة:

ملاحظة: إذا لم تقم بقفل هذا القفل الصغير، سيتم تغيير مرجع الخلية الذي تنقر عليه مع الخلية المحددة.

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

انقر لتنزيل Kutools لـ Excel وتجربته الآن مجانًا!

مقالات أخرى: