كيفية تكرار قيمة الخلية 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. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

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

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

---

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

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

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

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

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

4. ثم، انقر فوق زر موافق أو تطبيق، وستحصل على النتيجة التالية حسب الحاجة:

انقر لتنزيل Kutools لـ Excel وتجربة الإصدار التجريبي المجاني الآن!