كيفية إدراج عدد محدد من الصفوف على فترات زمنية محددة في Excel؟
في ورقة عمل Excel ، يمكنك إدراج صف فارغ بين الصفوف الموجودة باستخدام وظيفة الإدراج. ولكن ، إذا كان لديك نطاق كبير من البيانات ، وتحتاج إلى إدراج صفين فارغين بعد كل ثالث صف بعد ذلك ، كيف يمكنك إنهاء هذه المهمة بسرعة وسهولة؟
- أدخل عددًا محددًا من الصفوف الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام رمز VBA
- أدخل عددًا محددًا من الصفوف الفارغة في نطاق البيانات استنادًا إلى قيم الخلايا باستخدام رمز VBA
- أدخل عددًا محددًا من الصفوف الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام ميزة سهلة الاستخدام
- قم بنسخ وإدراج الصفوف عدة مرات بناءً على أرقام محددة برمز VBA
- انسخ وأدخل الصفوف عدة مرات بناءً على أرقام محددة بميزة مذهلة
أدخل عددًا محددًا من الصفوف الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام رمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إدراج عدد محدد من الصفوف بعد كل صف n ضمن البيانات الموجودة. الرجاء القيام بما يلي:
1. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
رمز فبا: أدخل عددًا محددًا من الصفوف في البيانات على فترات زمنية ثابتة
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. بعد لصق هذا الرمز ، الرجاء الضغط F5 مفتاح لتشغيل هذا الرمز ، سيظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد إدراج صفوف فارغة ، انظر الصورة:
4. انقر OK زر ، سيظهر مربع موجه آخر ، يرجى إدخال عدد فترات الصف ، انظر الصورة:
5. استمر في النقر OK الزر ، في مربع المطالبة المنبثق التالي ، يرجى إدخال عدد الصفوف الفارغة التي تريد إدراجها ، انظر لقطة الشاشة:
6. ثم اضغط OK، وتم إدراج الصفوف الفارغة في البيانات الموجودة على فترات منتظمة ، انظر لقطات الشاشة:
أدخل عددًا محددًا من الصفوف الفارغة في نطاق البيانات استنادًا إلى قيم الخلايا باستخدام رمز VBA
في بعض الأحيان ، قد تحتاج إلى إدراج الصفوف الفارغة بناءً على قائمة قيم الخلايا ، وفي هذه الحالة ، يمكن أن يقدم لك رمز VBA أدناه معروفًا ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
رمز فبا: أدخل عددًا محددًا من الصفوف الفارغة بناءً على قائمة الأرقام:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. بعد لصق هذا الرمز ، اضغط على F5 مفتاح لتشغيل هذا الرمز ، في مربع الحوار المنبثق ، حدد قائمة الأرقام التي تريد إدراج صفوف فارغة بناءً عليها ، انظر لقطة الشاشة:
4. ثم اضغط OK، وستحصل على النتائج التي تريدها كما هو موضح في لقطات الشاشة التالية:
أدخل عددًا محددًا من الصفوف الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام ميزة سهلة الاستخدام
إذا لم تكن معتادًا على رمز VBA أعلاه ، كوتولس ل إكسيل قد يساعدك أيضًا أدخل صفوف وأعمدة فارغة يمكن للميزة إدراج عدد محدد من الصفوف أو الأعمدة في البيانات الموجودة على فترات زمنية ثابتة بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد نطاق البيانات الذي تريد إدراج صفوف فارغة على فترات.
2. انقر كوتولس > إدراج > أدخل صفوف وأعمدة فارغة، انظر لقطة الشاشة:
3. في إدراج أعمدة وصفوف فارغة مربع الحوار، اختر صفوف فارغة خيار من أدخل نوع، ثم حدد عدد الفواصل الزمنية والصفوف الفارغة التي تريد استخدامها كما هو موضح في لقطة الشاشة التالية:
4. ثم اضغط OK الزر ، وتم إدراج الصفوف الفارغة في النطاق المحدد في فاصل زمني محدد كما هو موضح في لقطة الشاشة التالية:
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
قم بنسخ وإدراج الصفوف عدة مرات بناءً على أرقام محددة برمز VBA
لنفترض أن لديك نطاقًا من tada ، والآن ، تريد نسخ كل صف ولصقه عدة مرات في الصف التالي بناءً على قائمة الأرقام كما هو موضح أدناه. كيف يمكن حل هذه المهمة في ورقة عمل Excel؟
للتعامل مع هذه الوظيفة ، سأقدم لك كودًا مفيدًا ، يرجى اتباع الخطوات التالية:
1. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: انسخ وأدخل الصفوف عدة مرات بناءً على أرقام محددة:
Sub CopyRows()
'UpdatebyExtendoffice
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 list of numbers to copy the rows based on: ", "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. ثم اضغط OK زر ، وتم نسخ ولصق عدد محدد من الصفوف أسفل كل صف أصلي ، انظر لقطات الشاشة:
انسخ وأدخل الصفوف عدة مرات بناءً على أرقام محددة بميزة مذهلة
إذا كان لديك كوتولس ل إكسيل، بما لديها صفوف / أعمدة مكررة بناءً على قيمة الخلية ميزة ، يمكنك إدراج الصفوف أو الأعمدة بناء على قائمة الأرقام بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. انقر كوتولس > إدراج > صفوف / أعمدة مكررة بناءً على قيمة الخلية، انظر لقطة الشاشة:
2. في نسخ وإدراج الصفوف والأعمدة مربع الحوار، حدد نسخ وإدراج الصفوف الخيار في النوع ، ثم حدد نطاق البيانات الذي تريد تكراره ، ثم حدد قائمة القيم التي تريد نسخ الصفوف بناءً عليها ، انظر لقطة الشاشة:
4. ثم اضغط Ok or التقديم سوف تحصل على النتيجة التالية حسب حاجتك:
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
المزيد من المقالات ذات الصلة:
- انسخ الصف وأدرجه عدة مرات أو كرر الصف X مرة
- في عملك اليومي ، هل سبق لك أن حاولت نسخ صف أو كل صف ثم إدراجه عدة مرات أسفل صف البيانات الحالي في ورقة العمل؟ على سبيل المثال ، لدي مجموعة من الخلايا ، الآن ، أريد نسخ كل صف ولصقه 3 مرات في الصف التالي كما هو موضح في لقطة الشاشة التالية. كيف يمكنك التعامل مع هذه الوظيفة في Excel؟
- أدخل صفوفًا فارغة عند تغيير القيمة في Excel
- لنفترض أن لديك نطاقًا من البيانات ، وتريد الآن إدراج صفوف فارغة بين البيانات عندما تتغير القيمة ، بحيث يمكنك فصل القيم المتسلسلة نفسها في عمود واحد كما هو موضح في لقطات الشاشة التالية. في هذا المقال سوف أتحدث عن بعض الحيل لك لحل هذه المشكلة.
- أدخل صفًا فارغًا بعد نص معين في Excel
- إذا كنت ترغب في إدراج صفوف فارغة بعد نص معين كما هو موضح في لقطة الشاشة التالية ، كيف تتعامل معها بسرعة وسهولة دون إدخالها يدويًا واحدة تلو الأخرى؟
- انسخ الصفوف من أوراق عمل متعددة بناءً على المعايير إلى ورقة جديدة
- لنفترض أن لديك مصنفًا به ثلاث أوراق عمل لها نفس التنسيق كما هو موضح أدناه. الآن ، تريد نسخ جميع الصفوف من أوراق العمل هذه حيث يحتوي العمود C على النص "مكتمل" في ورقة عمل جديدة. كيف يمكنك حل هذه المشكلة بسرعة وسهولة دون نسخها ولصقها واحدة تلو الأخرى يدويًا؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!