ادمج بسهولة أوراق عمل / مصنفات متعددة في ورقة عمل / مصنف واحد

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

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

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

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

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

الخطوة شنومك: اضغط F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.

ثم يتم نسخ جميع القيم من الخلية المحددة في جميع أوراق العمل إلى ورقة عمل جديدة تسمى KutoolsforExcel. انظر لقطة الشاشة

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

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

هذه الطريقة ستقدم كوتولس ل إكسيلالصورة ديناميكي الرجوع إلى أوراق العمل أداة لإنشاء قائمة ديناميكية من نفس الخلايا عبر أوراق عمل متعددة.

الخطوة 1: حدد النطاق حيث ستملأ القائمة الديناميكية ، وانقر فوق كوتولس > للمزيد > ديناميكي الرجوع إلى أوراق العمل.

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

(1) انقر فوق عبئ الطلب ، وحدد نوع التعبئة من القائمة المنسدلة. في حالتنا ، نختار تعبئة عمودي خلية بعد خلية;

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

(3) انقر فوق نطاق التعبئة .

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

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

كيفية الملء التلقائي للخلية نفسها من أوراق مختلفة إلى ورقة في Excel؟