كيف يمكن تكرار قيمة خلية معينة x مرة في Excel؟

---

تكرار قيم الخلايا X مرات باستخدام صيغة وعمود مساعد

لتكرار قيم الخلايا X مرات، يمكنك إدراج بعض الأعمدة المساعدة ثم تطبيق صيغة بسيطة، يُرجى اتباع الخطوات التالية:

1. أدرج عمودًا إلى يسار العمود A، واكتب 1 في الخلية A2. انظر لقطة الشاشة:

2. بعد ذلك، أدخل الصيغة=A2 + C2 في الخلية A3، ثم اسحب مقبض التعبئة حتى الخلية A6. انظر لقطة الشاشة:

3. أدخل الرقم 1 في الخلية D2، ثم اسحب مقبض التعبئة لأسفل لتلقائيًا ملء الأرقام حتى 12—وهو العدد الإجمالي للمرات المذكور في العمود C. انظر لقطة الشاشة:

4. أدخل بعد ذلك الصيغة التالية=VLOOKUP(D2,$A$1:$B$6,2) في الخلية E2، ثم انسخها لأسفل لتحصل على النتيجة التالية:

---

---

تكرار قيم الخلايا X مرات باستخدام كود VBA

إذا وجدتَ الطريقة الأولى صعبة الفهم، فهاك كود VBA كبديلٍ فعّال لحل المشكلة.

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

2. انقر فوقInsert > Module، ثم الصق الكود التالي فينافذة الوحدة (Module Window).

كود VBA: تكرار قيم الخلايا 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لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد النطاق الذي يحتوي على القيم ومرات التكرار، انظر لقطة الشاشة:

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

5ثم انقر فوقOK، وستحصل على النتيجة التي تم فيها تكرار القيم المحددة بالعدد المطلوب وفقًا لاحتياجاتك.

---

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

في بعض الأحيان، قد تحتاج إلى نسخ قيم الخلايا ولصقها x مرة استنادًا إلى رقم محدد. يمكن لأداةKutools لـ Excelالمميزة "نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة" أن تساعدك في نسخ الصفوف وإدراجها بسرعة بناءً على العدد الذي حددته!

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

1. انقر فوقKutools > Insert > نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، انظر لقطة الشاشة:

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

4. بعد ذلك، انقر على الزرOk أوApply، وستحصل على النتيجة التالية حسب احتياجاتك:

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