Note: The other languages of the website are Google-translated. Back to English

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

4. وانقر OK، سيظهر مربع موجه آخر للسماح لك بتحديد خلية لوضع النتيجة ، انظر لقطة الشاشة:

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


قم بنسخ وإدراج قيم الخلية 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 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (45)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك على هذا ، من السهل جدًا القيام به وفهمه. اعتدت القيام بذلك يدويًا باستخدام 2600 خلية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لجعل الماكرو يتذكر وجهة الإدخال والإخراج ، لذا في المرة التالية التي يتم فيها تشغيل الماكرو ، لا تحتاج إلى إعادة التحديد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ينكسر رمز VBA عند وجود قيمة 0 في عمود "عدد المرات". اضبط حلقة For every على النحو التالي: لكل Rng In InputRng.Rows xValue = Rng.Range ("A1"). Value xNum = Rng.Range ("B1"). Value If xNum> 0 ثم OutRng.Resize (xNum، 1) .Value = xValue Set OutRng = OutRng.Offset (xNum، 0) End If Next
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا يا رجل!! وفر الكثير من الوقت. :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت النهج الأول ، لقد نجحت بشكل لا تشوبه شائبة ، شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا يا رجل ..!! هذا يعمل ويوفر لي الكثير من الوقت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا!! وفر لي الكثير من الوقت. استخدام ذكي لبرنامج vlookup!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مثل #John Said ، هل هناك طريقة للحصول على نطاق محدد حتى لا تحتاج إلى التحديد. أحاول أيضًا لصق كل قيمة فردية في العمود الخاص بها. لقد قمت بتغيير السطر Set OutRng = OutRng.offset (xNum، 0) إلى Set OutRng = OutRng.offset (xNum، 1) في محاولة لجعله في أعمدة يبدو أنني أتلقى خطأ في السطر OutRng.Resize (xNum ، 1) .value = xValue حتى لو قمت بنسخ ولصق الكود من هذا الموقع. أي مساعدة سيكون موضع تقدير كبير.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لوت !!!! عمل VB Macro لي ووفر وقتي لمدة أسبوع .... شكرًا مرة أخرى ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل سيعمل رمز VBA المقترح في المقالة إذا لم تكن الخلايا التي تحتوي على عدد المرات بجوار الخلايا ذات القيمة؟ إذا لم يكن كذلك ، فهل هناك طريقة لتعديل VBA لجعله يعمل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك. :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لدي استفسار: البيانات الأساسية: الناتج الإجمالي لبلد العميل: العميل 1 العميل 2 العميل 3 (إن وجد) البلد 1 البلد 2 وما إلى ذلك ... (إن وجد) بشكل عام 1 بشكل عام 2 وما إلى ذلك ... (إن وجد) يرجى أي شخص يمكنه حل هذا أثناء استخدام الصيغة في excel في أسرع وقت ممكن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش! شكرا جزيلا!!!!!!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما زلنا ندخر المشاريع في عام 2017! شكرا جزيلا على هذا! :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا يا صاح ، لقد قمت بعمل رائع.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتعديل الكود بحيث يوجد عمودان بهما بيانات وعمود واحد يحتويان على كمية التكرار. أي A2 = x B1 = y C1 = 2 يقوم الماكرو بعد ذلك بتكرار A3 مرتين و b2 مرتين في cels إلى اليمين أي مساعدة مقدّمة. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا مفيدًا جدًا ، وكان مفيدًا لإنشاء جدول بيانات للعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
मैं बहुत दिनों से यह ऑप्शन ढूढ था धन्यवाद سيدي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
VBA أو الصيغة. لا احد منهم يعمل لدي يعطي خطأ "معرف التطبيق أو كائن معرف" خطأ 1004. هل يمكن لأي شخص المساعدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل رمز VBA إذا لم يكن لديك Kutools. يعطيني خطأ "متغير غير محدد"
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL