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

على سبيل المثال ، لديك قائمة بالقيم في العمود A ، وتريد تكرار القيم عددًا محددًا من المرات بناءً على عدد المرات في العمود B ، كما هو موضح في لقطة الشاشة اليسرى ، كيف يمكنك تحقيق ذلك في Excel؟

• كرر قيم الخلية X مرات باستخدام الصيغة والعمود المساعد
• كرر قيم الخلية X مرات باستخدام كود VBA
• قم بنسخ وإدراج قيم الخلية X مرة باستخدام ميزة رائعة

 

كرر قيم الخلية 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 وانسخها ، ستحصل على النتيجة التالية:

كرر قيم الخلية 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

قم بنسخ وإدراج قيم الخلية 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...