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

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

• إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بفواصل ثابتة باستخدام كود VBA
• إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بناءً على قيم الخلايا باستخدام كود VBA
• إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بفواصل ثابتة باستخدام ميزة عملية
• نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة باستخدام كود VBA
• نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة باستخدام ميزة رائعة

إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بفواصل ثابتة باستخدام كود VBA

يمكن أن يساعدك الكود التالي لـ VBA في إدراج عدد محدد من الصفوف بعد كل صف n ضمن البيانات الموجودة. الرجاء اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 في Excel، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إدراج عدد محدد من الصفوف في البيانات بفواصل ثابتة

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. انقر فوق زر موافق، سيظهر مربع حوار آخر، يرجى إدخال عدد فواصل الصفوف، انظر إلى لقطة الشاشة:

5. استمر بالنقر فوق زر موافق، في مربع الحوار المنبثق التالي، يرجى إدخال عدد الصفوف الفارغة التي ترغب في إدراجها، انظر إلى لقطة الشاشة:

6. ثم انقر فوق موافق، وسيتم إدراج الصفوف الفارغة في البيانات الموجودة بفواصل منتظمة، انظر إلى لقطات الشاشة:

إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بناءً على قيم الخلايا باستخدام كود VBA

أحيانًا قد تحتاج إلى إدراج صفوف فارغة بناءً على قائمة من قيم الخلايا، في هذه الحالة يمكن أن يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 في Excel، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إدراج عدد محدد من الصفوف الفارغة بناءً على قائمة من الأرقام:

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. ثم، انقر فوق موافق، وستحصل على النتائج التي تحتاجها كما هو موضح في لقطات الشاشة التالية:

إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بفواصل ثابتة باستخدام ميزة عملية

إذا لم تكن معتادًا على كود VBA أعلاه، فإن Kutools لـ Excel قد يساعدك أيضًا، حيث يمكن لميزته إدراج صفوف و أعمدة فارغة إدراج عدد محدد من الصفوف أو الأعمدة في البيانات الموجودة بفواصل ثابتة بسرعة وسهولة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد إدراج صفوف فارغة به بفواصل.

2. انقر فوق Kutools > إدراج > إدراج صفوف وأعمدة فارغة، انظر إلى لقطة الشاشة:

3. في مربع الحوار إدراج صف وأعمدة فارغة، اختر خيار الصفوف الفارغة من نوع الإدراج، ثم حدد عدد الفواصل والصفوف الفارغة التي ترغب في استخدامها كما هو موضح في لقطة الشاشة التالية:

4. ثم انقر فوق زر موافق، وسيتم إدراج الصفوف الفارغة في النطاق المحدد بفاصل زمني محدد كما هو موضح في لقطة الشاشة التالية:

قم بتنزيل وتجربة Kutools لـ Excel الآن مجانًا!

نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة باستخدام كود VBA

لنفترض أن لديك نطاقًا من البيانات، والآن تريد نسخ كل صف ولصقه عدة مرات في الصف التالي بناءً على قائمة من الأرقام كما هو موضح في لقطات الشاشة أدناه. كيف يمكنك حل هذه المهمة في ورقة عمل Excel؟

للتعامل مع هذه المهمة، سأقدم لك رمزًا مفيدًا، يرجى القيام بالخطوات التالية:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 في Excel، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة:

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

نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة باستخدام ميزة رائعة

إذا كنت تمتلك Kutools لـ Excel، باستخدام ميزته نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، يمكنك إدراج الصفوف أو الأعمدة بناءً على قائمة الأرقام بسرعة وسهولة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. انقر فوق Kutools > إدراج > نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، انظر إلى لقطة الشاشة:

2. في مربع الحوار نسخ وإدراج صفوف وأعمدة، حدد خيار نسخ وإدراج صفوف في قسم النوع، ثم حدد نطاق البيانات الذي تريد تكراره، وبعد ذلك حدد قائمة القيم التي تريد نسخ الصفوف بناءً عليها، انظر إلى لقطة الشاشة:

4. ثم، انقر فوق موافق أو تطبيق، ستحصل على النتيجة التالية كما تحتاج:

قم بتنزيل وتجربة Kutools لـ Excel الآن مجانًا!

مقالات ذات صلة أكثر: