انتقل إلى المحتوى الرئيسي

كيفية تكرار قيمة الخلية 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (46)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
It's very helpful.Thanks a ton.
This comment was minimized by the moderator on the site
MERCI !!!!!!!!
This comment was minimized by the moderator on the site
Really fantastic thank you
This comment was minimized by the moderator on the site
Gracias por este consejo. Me funcionó genial para una base de 4061 registros que se convirtieron en 146,196 filas. Saludos.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bonjour, je suis bloquée en VBA. J'ai besoin de faire la chose suivante : Répéter la ligne 2  qui est dans la feuille de calcul BDD  dans la feuille de calcul BDD 2 A partir de A2Autant de fois que c'est noté dans J2 (non fixé)Ensuite passer à la ligne suivante jusqu'à (ou tant que ???) la cellule en J soit vide
Comment j'écris ça ? 
Merci pour votre aide !
This comment was minimized by the moderator on the site
merhaba anlatım uygulama çok güzel fakat benim sorum,
bu uygulama sadece A sütun için uygulanmış örneğin E sütunda bulunan değer kadar A,B,C,D sütunlarını da aynı anda çoğaltmak istersem nasıl bir yol izlemeliyim. şimdiden teşekkürler
This comment was minimized by the moderator on the site
the vlookup one was a bit wonky but the macro worked like a charm! Thank you!
This comment was minimized by the moderator on the site
Great!Thanks a lot
This comment was minimized by the moderator on the site
We can find duplicates value without kutools....
Through countif formula....=COUNTIF($E$7:$E$23,H7:H17), E7 COLUMN RANGE AND H COLUMN CRITERIA...


0091 9004260229
This comment was minimized by the moderator on the site
thank u! the vlookup function worked!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations