كيف يمكن تكرار الصفوف عددًا محددًا من المرات بناءً على القيم الموجودة في عمود آخر في Excel؟
هل سبق أن حاولت تكرار صف بناءً على قيمة موجودة في عمود آخر، كما يظهر في لقطة الشاشة أدناه؟ في هذه المقالة، سأعرض لك الطريقة المثلى لإنجاز هذه المهمة في Excel.
تكرار الصفوف استنادًا إلى قيمة عمود آخر باستخدام VBA
تكرار الصفوف استنادًا إلى قيمة عمود آخر بواسطة Kutools لـ Excel
تكرار الصفوف استنادًا إلى قيمة عمود آخر باستخدام VBA
لدي هنا كودٌ يُمكّنك من تكرار الصفوف بسرعةٍ بناءً على قيم العمود الأخير.
1. اضغط علىAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ الكود أدناه والصقه فيالوحدة النمطيةالجديدة.
VBA: تكرار الصفوف استنادًا إلى قيمة عمود آخر
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. اضغط علىF5، وستظهر نافذة منبثقة؛ اختر قائمة الأرقام التي سيتم تكرار الصفوف بناءً عليها.
4. انقر على «موافق»، وسيتم تكرار الصفوف تلقائيًا بناءً على قيمة العمود المحددة.
تكرار الصفوف استنادًا إلى قيمة عمود آخر بواسطة Kutools لـ Excel
إذا لم تكن متمكّنًا من استخدام VBA، جرّب ميزةKutools لـ Excel’s صف مكرر/الأعمدة استنادًا إلى قيمة الخليةالتي تتطلب خطوتين فقط!
1. انقر علىKutools > إدراج > صف مكرر/الأعمدة استنادًا إلى قيمة الخلية.
2. في النافذة المنبثقة، اختر خيارنسخ وإدراج صفوففي قسمالنوع، ثم حدد النطاق الذي تريد تكراره في مربع النصنطاق الإدراج، واختر العمود الذي يحدد عدد مرات التكرار في مربع النصمرات التكرار. بعد ذلك، انقر علىموافق.
بعد ذلك، سيتم تكرار الصفوف وفقًا للعمود الذي تحدده.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل