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

كيفية إدراج عدد محدد من الصفوف على فترات زمنية محددة في Excel؟

في ورقة عمل Excel ، يمكنك إدراج صف فارغ بين الصفوف الموجودة باستخدام وظيفة الإدراج. ولكن ، إذا كان لديك نطاق كبير من البيانات ، وتحتاج إلى إدراج صفين فارغين بعد كل ثالث صف بعد ذلك ، كيف يمكنك إنهاء هذه المهمة بسرعة وسهولة؟


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد 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 (39)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Marvelous vba script!
I had over 5000 rows that i need to add new rows to in between. All other guides told me to make "helper" column it would take me good part of my life to add 1,2 copy paste over and over again just to add new rows.
So, Thanks for this!
Rated 5 out of 5
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

quede asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
Name Email Phone Address
0 Name Email Phone Adress
address line 2 Name Phone 0
Name Email Phone Adress
0 Name Email Phone Adress
address line 2 0


How could I edit this to start a new row at every empty value or 0 value without having phone numbers with 0 start a new row?
This comment was minimized by the moderator on the site
Hello, Jarrod

Sorry, I can't get your problem clearly.
Could you explain your problem more detailed? Or you can insert a screenshot or file here.
Thank you!
This comment was minimized by the moderator on the site
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Rated 5 out of 5
This comment was minimized by the moderator on the site
can you tell me how to insert column like this way , what is the code
This comment was minimized by the moderator on the site
Hello friend,
You can use this VBA code:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount 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)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Sincerely,
Mandy
This comment was minimized by the moderator on the site
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
This is so Cool!! Thanks a lot
This comment was minimized by the moderator on the site
Can I get the VBA code for deletion of rows based on duplicate values in a selected column keeping all unique values?
This comment was minimized by the moderator on the site
Hello, Roy,If you want to remove rows based on duplicate values, normally, you can use the Remove Duplicates feature in Excel to remove the rows.Of course, if you need a VBA code, please use the below code: (First, you should select the data range that you want to remove, and then run this code, the rows based on the duplicate values in the first column of your selection will be removed at once. )<div data-tag="code">Sub Delete_duplicate_rows()
Dim Rng As Range
Set Rng = Selection
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you author! You deserve the best commendation for these! But please could you help me out with the code to put a constant value into all blank rows I created with your code above? To make myself more clearer, I need to insert a constant value into all blank rows (this solved already with your code above) then I need to insert a constant value into all of the blank rows (this is my problem). Thank you as I expect your kind response.
This comment was minimized by the moderator on the site
Hello, Do you mean to fill blank rows with specific value? If so, mabe the following article cna help you:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Please try it.
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