كيفية تكرار قيمة الخلية x مرات في إكسيل؟

على سبيل المثال ، لديك قائمة بالقيم في العمود A ، وتريد تكرار القيم عددًا محددًا من المرات بناءً على عدد المرات في العمود B ، كما هو موضح في لقطة الشاشة اليسرى ، كيف يمكنك تحقيق ذلك في Excel؟
كرر قيم الخلية X مرات باستخدام الصيغة والعمود المساعد
لتكرار قيم الخلية X مرات ، يمكنك إدراج بعض الأعمدة المساعدة ثم تطبيق صيغة بسيطة ، يرجى اتباع الخطوات التالية:
1. أدخل عمودًا على يمين العمود A ، واكتب 1 في الخلية A2 ، انظر الصورة:
2. ثم ضع هذه الصيغة = A2 + C2 في A3 ، واسحب مقبض التعبئة إلى الخلية A6 ، انظر الصورة:
3. ثم أدخل 1 في الخلية D2 ، واملأ الرقم عن طريق سحب Auto Fill إلى 12 وهو العدد الإجمالي لعدد المرات في العمود C ، انظر الصورة:
4. ثم أدخل هذه الصيغة = VLOOKUP (D2، $ A $ 1: B $ 6,2،XNUMX) في الخلية E2 وانسخها ، ستحصل على النتيجة التالية:
- ملاحظة:
- 1. في هذه الصيغة ، D2 يشير إلى الخلية الأولى التي تم ملؤها بالتسلسل الرقمي ، و A1: B6 لتقف على نطاق العمود المساعد الأول وقيم الخلية الأصلية التي تحتاج إلى تكرارها.
- 2. بعد الحصول على القيم المكررة ، يمكنك نسخها ولصقها كقيم في أي مكان آخر.
قم بنسخ وإدراج الصفوف X مرات بناءً على رقم محدد بسهولة
عادة ، لا توجد طريقة جيدة لنسخ وإدخال الصفوف عدة مرات باستثناء التعامل مع النسخ والإدراج يدويًا. ولكن مع كوتولس ل إكسيل's صفوف / أعمدة مكررة بناءً على قيمة الخلية ميزة يمكنك حل هذه المشكلة بكل سهولة. انقر لتنزيل Kutools for Excel!
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 60 يومًا. تنزيل وتجربة مجانية الآن!
كرر قيم الخلية X مرات باستخدام كود VBA
إذا كنت تعتقد أن الطريقة الأولى يصعب فهمها ، فيمكنني هنا أيضًا تقديم رمز VBA لحلها.
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: كرر قيم الخلية X مرة
Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
xValue = Rng.Range("A1").Value
xNum = Rng.Range("B1").Value
OutRng.Resize(xNum, 1).Value = xValue
Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي يحتوي على القيم والأوقات المتكررة ، انظر لقطة الشاشة:
قم بنسخ وإدراج قيم الخلية X مرة باستخدام ميزة رائعة
في بعض الأحيان ، قد تحتاج إلى نسخ وإدراج قيم الخلية x مرة بناءً على الرقم المحدد ، كوتولس ل إكسيل's صفوف / أعمدة مكررة بناءً على قيمة الخلية يمكن أن تساعدك في نسخ الصفوف وإدراجها بسرعة بناءً على الرقم الذي حددته.
نصيحة:لتطبيق هذا صفوف / أعمدة مكررة بناءً على قيمة الخلية الميزة ، أولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس > إدراج > صفوف / أعمدة مكررة بناءً على قيمة الخلية، انظر لقطة الشاشة:
2. في نسخ وإدراج الصفوف والأعمدة مربع الحوار، حدد نسخ وإدراج الصفوف الخيار في النوع ، ثم حدد نطاق البيانات الذي تريد تكراره ، ثم حدد وقت التكرار لنسخ وإدراج الصفوف ، انظر لقطة الشاشة:
4. ثم اضغط Ok or قم بالمشاركة سوف تحصل على النتيجة التالية حسب حاجتك:
![]() |
![]() |
![]() |
انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!




















