كيف يمكن نسخ عمود استنادًا إلى قيمة خلية معيّنة إلى ورقة عمل أخرى؟

عند التعامل مع بيانات موزعة عبر أعمدة تحتوي رؤوسها على تواريخ، قد تحتاج غالبًا إلى استخراج عمودٍ كامل من ورقة عمل واحدة ونسخه إلى ورقة أخرى—لكن فقط للعمود الذي يطابق تاريخًا معيّنًا تم إدخاله في مكان آخر من ملفك. على سبيل المثال، افترض أن لديك جدولًا فيورقة1حيث يكون رأس كل عمود تاريخًا مختلفًا، وأنك أدخلت التاريخ المستهدف في الخليةورقة2!A1. تريد نسخ العمود بأكمله منورقة1الذي يطابق رأسه التاريخ الموجود فيورقة2!A1، ثم لصقه فيورقة3—كما هو موضح أدناه. هذه حالة شائعة جدًّا عند مقارنة المقاييس اليومية، أو إدارة الجداول الزمنية، أو استخراج بيانات محددة زمنيًا لإعداد التقارير.

---

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

توفر دوال Excel INDEX وMATCH طريقة فعّالة لاسترجاع عمودٍ كامل من ورقة مصدر استنادًا إلى قيمة رأس معيّنة مُشار إليها في ورقة أخرى. ويُعدّ هذا الأسلوب مفيدًا بشكل خاص عندما تحتاج إلى تحديث البيانات تلقائيًا مع تغيّر قيمة الخلية، مما يقلل من الحاجة إلى التعديلات اليدوية أو عمليات النسخ واللصق المتكررة.

1. حدد الخلية في ورقة الوجهة التي تريد لصق قيم العمود فيها. على سبيل المثال، انقر علىورقة3!A1، ثم أدخل الصيغة التالية:

=INDEX(Sheet1!$A1:$E1,MATCH(Sheet2!$A$1,Sheet1!$A$1:$E$1,0))

اضغطEnterلتطبيق الصيغة، ثم اسحب مقبض التعبئة للأسفل بقدر الحاجة (عادةً حتى الصفوف المقابلة لـ نطاق البيانات في)ورقة1). ستلاحظ ظهور أصفار في المواضع التي ينتهي عندها نطاق البيانات.

2. احذف الخلايا الصفرية الناتجة أو رتّبها حسب الحاجة لتنظيف عمودك المستخرج.

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

---

رمز VBA - نسخ عمود تلقائيًا إلى ورقة أخرى استنادًا إلى قيمة خلية

إذا كنت تقوم بهذه المهمة بشكل متكرر أو تفضّل حلاً لا يتطلب إعداد صيغ أو تنفيذ خطوات يدوية في كل مرة يتغيّر فيها التاريخ المستهدف، فاستخدم ماكرو VBA بسيط! سيقوم هذا البرنامج النصي تلقائيًا بتحديد العمود فيورقة1الذي يطابق التاريخ الموجود فيورقة2!A1، ثم ينسخه بالكامل مباشرةً إلىورقة3. إنه الحل الأمثل لأتمتة سير العمل المتكرر أو التعامل مع هياكل بيانات ديناميكية!

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

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

Sub CopyColumnByDate()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lookupSheet As Worksheet
    Dim matchDate As Variant
    Dim lastRow As Long
    Dim colNum As Long
    Dim headerRange As Range
    Dim cell As Range
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set wsSource = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet3")
    Set lookupSheet = Worksheets("Sheet2")
    matchDate = lookupSheet.Range("A1").Value
    
    Set headerRange = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column))
    colNum = 0
    
    For Each cell In headerRange
        If cell.Value = matchDate Then
            colNum = cell.Column
            Exit For
        End If
    Next cell
    
    If colNum > 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colNum).End(xlUp).Row
        wsDest.Range("A1").Resize(lastRow, 1).Value = wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Value
        MsgBox "Data copied to Sheet3 column A!", vbInformation, "KutoolsforExcel"
    Else
        MsgBox "No matching header found.", vbExclamation, "KutoolsforExcel"
    End If
End Sub

2.أغلق محرر VBA. في Excel، اضغطAlt + F8، وحددCopyColumnByDate، ثم انقرتشغيل. سيتم نسخ بياناتك من عمود التاريخ المطابق فيورقة1إلى العمود A فيورقة3.

تلميح:إذا كانت رؤوسك تبدأ من صفٍ غير الصف الأول، فعدّل مراجع الصفوف في الكود. وإذا كنت تريد لصق البيانات في عمود بدء مختلف، غيّرRange("A1") وفقًا لذلك. وإذا كنت تستخدم الماكرو نفسه مرارًا، ففكّر في تعيينه على زرٍ لتسهيل الوصول إليه.

الأخطاء المحتملة:إذا تلقيت رسالة «لم يتم العثور على رأس مطابق»، فتأكد من أن التاريخ الموجود فيورقة2!A1يطابق تمامًا تنسيق التاريخ في صف الرؤوس فيورقة1.

---

طرق أخرى مضمنة في Excel - استخدام التصفية لعزل ونسخ العمود

يمكنك أيضًا الاعتماد على ميزةالتصفيةالمدمجة في Excel لعزل ونسخ عمودٍ ما دون الحاجة إلى استخدام الصيغ أو الماكرو. إنها طريقة يدوية فعّالة — خاصةً للمهام العرضية أو للمستخدمين غير المعتادين على الدوال أو البرمجة.

1. انتقل إلىورقة1، وحدد صف الرؤوس (مثلًا، الصف الأول)، ثم انقربيانات>تصفيةلإضافة قوائم منسدلة إلى كل رأس.

2. انقر على السهم المنسدل للتصفية في صف الرؤوس، ثم ألغِ تحديد جميع الأعمدة باستثناء التاريخ المطابق لـورقة2!A1. إذا كانت هناك تواريخ كثيرة، يمكنك استخدام مربع البحث في قائمة التصفية للعثور بسرعة على تاريخ معين.

3. حدد العمود المرئي أسفل الرأس المطابق، ثم اضغطCtrl + C للنسخ.

4. انتقل إلىورقة3، وانقر داخل الخلية التي تفضل البدء بها (مثلًا، A1)، ثم اضغطCtrl + V للصق.

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

المزايا:لا تحتاج إلى صيغ أو برمجة؛ مثالية للمهام البصرية السريعة والبسيطة.
العيوب:تتطلب جهدًا كبيرًا عند التكرار المتكرر؛ وعرضة للأخطاء إذا لم تنتبه جيدًا عند تحديد الأعمدة.

---