Note: The other languages of the website are Google-translated. Back to English

كيفية إدراج عدد محدد من الصفوف على فترات زمنية محددة في 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (39)
تقييم شنومك من شنومكس · تصنيفات 2
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا أستخدم الكود الخاص بك (أدناه) ، هل يمكنك أن تخبرني كيف يمكنني ملء هذه الصفوف بنص مخصص فيها. لقد استخدمت الكود الخاص بك لإدخال ثلاثة صفوف كان يعمل بشكل مثالي ولكن الآن أحتاج إلى إدخال النص Row1 = Date Row2. = Location Row3 = رقم الهاتف شكرًا مقدمًا ... "Sub InsertRowsAtIntervals () 'Updateby20150707 Dim Rng As Range Dim xInterval كـ عدد صحيح Dim xRows كـ عدد صحيح Dim xRowsCount كـ عدد صحيح Dim xNum1 كـ عدد صحيح Dim xNum2 كـ عدد صحيح Dim WorkRng كـ Range Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("RangeI"، xTitle ، WorkRng.Address، النوع: = 8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox ("أدخل الفاصل الزمني للصف."، xTitleId، 1، النوع: = 1) xRows = Application.InputBox ("كم عدد الصفوف المطلوب تنفيذها" الإدراج في كل فترة زمنية؟ "، 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)). حدد Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub "
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك!!!!! هذا مذهل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكر كثيرا!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hi


أستخدم كود vba الفاصل الزمني .. لكن عندما أستخدم أكثر من 100000 صف لا يعمل .. يرجى اقتراح ما يجب علي تغييره إن وجد.


إدراج فرعي RowsAtIntervals ()
تحديث بحلول20150707
خافت Rng كمدى
Dim xInterval كعدد صحيح
خافت xRows كعدد صحيح
خافت xRowsCount كعدد صحيح
خافت xNum1 كعدد صحيح
خافت xNum2 كعدد صحيح
خافت WorkRng كنطاق
خافت xWs كورقة عمل
xTitleId = "KutoolsforExcel"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox ("أدخل الفاصل الزمني للصف." ، xTitleId ، 1 ، النوع: = 1)
xRows = Application.InputBox ("كم عدد الصفوف المراد إدراجها في كل فترة زمنية؟" ، xTitleId ، 1 ، النوع: = 1)
xNum1 = WorkRng.Row + x Interval
xNum2 = xRows + x Interval
تعيين xWs = WorkRng.Parent
بالنسبة إلى i = 1 إلى Int (xRowsCount / xInterval)
xWs.Range (xWs.Cells (xNum1، WorkRng.Column)، xWs.Cells (xNum1 + xRows - 1، WorkRng.Column)). حدد
التطبيق ، الاختيار ، الصف بالكامل ، الإدخال
xNum1 = xNum1 + xNum2
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع - لقد وفرت لي الكثير من إدخال البيانات الطائش ، شكرًا جزيلاً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً ، كيف يمكنني الحصول على الكود الخاص بإدراج عدد محدد من الأعمدة في البيانات على فترات زمنية ثابتة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، PK ،
لإدراج أعمدة فارغة في البيانات الموجودة على فترات زمنية محددة ، يمكن أن يساعدك رمز VBA أدناه! رجاء محاولة ذلك.

إدراج فرعي أعمدة في فترات زمنية ()
خافت Rng كمدى
Dim xInterval كعدد صحيح
xCs خافت كعدد صحيح
خافت xCount كعدد صحيح
خافت xNum1 كعدد صحيح
خافت xNum2 كعدد صحيح
خافت WorkRng كنطاق
خافت xWs كورقة عمل
xTitleId = "KutoolsforExcel"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox ("أدخل الفاصل الزمني للأعمدة." ، xTitleId ، 1 ، النوع: = 1)
xCs = Application.InputBox ("كم عدد الأعمدة المراد إدراجها في كل فترة زمنية؟" ، xTitleId ، 1 ، النوع: = 1)
xNum1 = WorkRng.Column + x Interval
xNum2 = xCs + x Interval
تعيين xWs = WorkRng.Parent
بالنسبة إلى I = 1 إلى Int (xCCount / xInterval)
xWs.Range (xWs.Cells (WorkRng.Row، xNum1 + xCs - 1)، xWs.Cells (WorkRng.Row، xNum1)). حدد
التطبيق ، الاختيار ، العمود الكامل ، الإدخال
xNum1 = xNum1 + xNum2
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية إضافة صفوف في بيانات Excel وفقًا للرقم المذكور في الخلية الأخيرة ، قل في بيانات Excel إذا كانت الخلية الأخيرة تظهر الرقم على أنه 4 ، فما هي الطريقة إلى dd 4 صفوف تلقائيًا. في صف آخر رقم 72 ، إلخ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، SPGupta ،
لإدراج صفوف فارغة بناءً على قائمة أرقام محددة ، يرجى تطبيق رمز VBA أدناه.
من فضلك حاول ، آمل أن يساعدك!

إدراج فرعي ()
'تحديث بواسطةExtendoffice
خافت xRg كمدى
Dim xAddress As String
خافت I ، xNum ، xLastRow ، xFstRow ، xCol ، xCount As Long
على خطأ استئناف التالي
xAddress = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("حدد عمود الرقم spefic المراد استخدامه (عمود واحد):" ، "KuTools For Excel" ، xAddress ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
Application.ScreenUpdating = خطأ
xLastRow = xRg (1). End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
تعيين xRg = xRg (1)
لأني = xLastRow إلى xFstRow الخطوة -1
xNum = خلايا (I ، xCol)
إذا كان IsNumeric (xNum) و xNum> 0 ثم
الصفوف (I + 1). الحجم (xNum)
xCount = xCount + xNum
إنهاء حالة
التالى
xRg.Resize (xCount، 1)
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، هل يمكنك مساعدتي من فضلك؟ كيف يمكنني تغيير هذا الرمز لإعلان عدد صفوف أقل من الرقم في الخلية؟ على سبيل المثال ، إذا كان الرقم في الخلية هو 4 ، فسيقوم البرنامج بإضافة 3 صفوف. إذا كان الرقم في الخلية 1 ، فلن تتم إضافة الصفوف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نينا
لحل مهمتك ، يرجى استخدام الكود أدناه:

إدراج فرعي ()
'تحديث بواسطةExtendoffice
خافت xRg كمدى
Dim xAddress As String
خافت I ، xNum ، xLastRow ، xFstRow ، xCol ، xCount As Long
على خطأ استئناف التالي
xAddress = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("حدد عمود الرقم spefic المراد استخدامه (عمود واحد):" ، "KuTools For Excel" ، xAddress ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
Application.ScreenUpdating = خطأ
xLastRow = xRg (1). End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
تعيين xRg = xRg (1)
لأني = xLastRow إلى xFstRow الخطوة -1
xNum = خلايا (I ، xCol)
xNum = xNum - 1
إذا كان IsNumeric (xNum) و xNum> 0 ثم
الصفوف (I + 1). الحجم (xNum)
xCount = xCount + xNum
إنهاء حالة
التالى
xRg.Resize (xCount، 1)
Application.ScreenUpdating = ترو
نهاية الفرعية


من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يعمل بشكل مثالي ، شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا عظيم. أنا فقط أتساءل ... ولغتي الإنجليزية ليست مثالية لذا أتمنى أن تفهموني :) .....
هل من الممكن ملء الصفوف الفارغة المضافة بقيم من الصف حيث كان هذا الرقم البارامترى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا فلاديمير ، هل تقصد إدراج صفوف فارغة بناءً على قائمة الأرقام في ورقة العمل؟ إذا كان الأمر كذلك ، يرجى تطبيق الكود أدناه:
إدراج فرعي ()
'تحديث بواسطةExtendoffice
خافت xRg كمدى
Dim xAddress As String
خافت I ، xNum ، xLastRow ، xFstRow ، xCol ، xCount As Long
على خطأ استئناف التالي
xAddress = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("حدد قائمة الأرقام التي تريد إدراج صفوف بناءً عليها:" ، "KuTools For Excel" ، xAddress ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
Application.ScreenUpdating = خطأ
xLastRow = xRg (1). End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
تعيين xRg = xRg (1)
لأني = xLastRow إلى xFstRow الخطوة -1
xNum = خلايا (I ، xCol)
إذا كان IsNumeric (xNum) و xNum> 0 ثم
الصفوف (I + 1). الحجم (xNum)
xCount = xCount + xNum
إنهاء حالة
التالى
xRg.Resize (xCount، 1)
Application.ScreenUpdating = ترو
End Sub يرجى المحاولة ، إذا كانت لديك أسئلة أخرى ، فيرجى التعليق هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز مثالي لإدخال الصفوف .... Sub Insert ()
'تحديث بواسطةExtendoffice
خافت xRg كمدى
Dim xAddress As String
خافت I ، xNum ، xLastRow ، xFstRow ، xCol ، xCount As Long
على خطأ استئناف التالي
xAddress = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("حدد عمود الرقم spefic المراد استخدامه (عمود واحد):" ، "KuTools For Excel" ، xAddress ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
Application.ScreenUpdating = خطأ
xLastRow = xRg (1). End (xlDown) .Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
تعيين xRg = xRg (1)
لأني = xLastRow إلى xFstRow الخطوة -1
xNum = خلايا (I ، xCol)
xNum = xNum - 1
إذا كان IsNumeric (xNum) و xNum> 0 ثم
الصفوف (I + 1). الحجم (xNum)
xCount = xCount + xNum
إنهاء حالة
التالى
xRg.Resize (xCount، 1)
Application.ScreenUpdating = ترو
نهاية الفرعية

ولكن هل من الممكن .... نسخ البيانات في تلك الخلايا الفارغة من الصف حيث كان هذا الرقم البارامترى؟ هل يمكنني نشر الصورة هنا؟ ربما يكون من الأسهل أن أريكم ما أحتاجه :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، فلاديمير ، قد يكون رمز VBA أدناه يمكن أن يساعدك ، يرجى تجربته. Sub CopyRow ()
'تحديث بواسطةExtendoffice
خافت xRg كمدى
خافت xCRg كمجموعة
خافت xFNum كعدد صحيح
خافت xRN كعدد صحيح
على خطأ استئناف التالي
اختر نطاقا:
xTxt = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("حدد قائمة الأرقام" ، "Kutools for Excel" ، xTxt ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub

إذا كانت xRg.Columns.Count> 1 ثم
MsgBox "الرجاء تحديد عمود واحد!"
GoTo SelectRange
إنهاء حالة
Application.ScreenUpdating = خطأ
بالنسبة إلى xFNum = xRg.Count To 1 Step -1
تعيين xCRg = xRg.Item (xFNum)
xRN = CInt (xCRg.Value)
مع الصفوف (xCRg.Row)
.ينسخ
الحجم (xRN)
انتهت ب
التالى
Application.ScreenUpdating = ترو
نهاية الفرعية

تم تصغير هذا التعليق بواسطة المشرف على الموقع
نحن قريبون جدًا :) كل ما أحتاجه الآن هو صف واحد أقل مما كان عليه في رمز VBA الأخير ، من قيمة رقم حدودي. على سبيل المثال: إذا كان الرقم 8 ، نحتاج إلى إدخال ونسخ 7 صفوف. كما صنعت لـ Nina فقط بهذه النسخة
لذلك ، إذا كان الرقم 8 ، فيجب أن يكون لدينا إجمالي 8 صفوف مدرجة ومنسوخة ، ومع رمز VBA السابق لدينا 9.
نور العيون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، في هذه الحالة ، قد يساعدك الرمز التالي ، يرجى المحاولة: بيانات النسخ الفرعية ()
'تحديث بواسطة Extendoffice
خافت xRow طويل
Dim VInSertNum كمتغير
xRow = 1
Application.ScreenUpdating = خطأ
القيام أثناء (الخلايا (xRow، "A") <> "")
VInSertNum = خلايا (xRow، "B")
If ((VInSertNum> 1) And IsNumeric (VInSertNum)) ثم
النطاق (الخلايا (xRow ، "A") ، الخلايا (xRow ، "B")). نسخ
النطاق (الخلايا (xRow + 1، "A") ، الخلايا (xRow + VInSertNum - 1، "B")). حدد
Selection.Insert Shift: = xlDown
xRow = xRow + VInSertNum - 1
إنهاء حالة
xRow = xRow + 1
أنشوطة
Application.ScreenUpdating = خطأ
ملاحظة نهاية فرعية: في الكود أعلاه ، الحرف A يشير إلى عمود البداية لنطاق البيانات ، والحرف B هو حرف العمود الذي تريد تكرار الصفوف بناءً عليه. يرجى تغييرها حسب حاجتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل لديك وحدة تقوم بخصم الرقم المنسوخ بواحد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا. لدي هذا ، لكنني أحتاجه لخصم 1؟
Sub CopyRow ()
'تحديث بواسطةExtendoffice
خافت xRg كمدى
خافت xCRg كمجموعة
خافت xFNum كعدد صحيح
خافت xRN كعدد صحيح
على خطأ استئناف التالي
اختر نطاقا:
xTxt = ActiveWindow.RangeSelection.Address
تعيين xRg = Application.InputBox ("حدد قائمة الأرقام" ، "Kutools for Excel" ، xTxt ، ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub

إذا كانت xRg.Columns.Count> 1 ثم
MsgBox "الرجاء تحديد عمود واحد!"
GoTo SelectRange
إنهاء حالة
Application.ScreenUpdating = خطأ
بالنسبة إلى xFNum = xRg.Count To 1 Step -1
تعيين xCRg = xRg.Item (xFNum)
xRN = CInt (xCRg.Value)
مع الصفوف (xCRg.Row)
.ينسخ
الحجم (xRN)
انتهت ب
التالى
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما أحاول القيام به هو إنشاء ملصقات وطباعتها في Word من جدول بيانات بكميات متعددة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل سنحت لك الفرصة للنظر في هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بارك الله فيك الذهب
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل تبحث عن رمز لإنشاء قائمة Excel مكررة برقم في خلية وطرح 1 للأصل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك المؤلف! أنت تستحق أفضل الثناء على هؤلاء! ولكن من فضلك ، هل يمكنك مساعدتي في كتابة الكود لوضع قيمة ثابتة في جميع الصفوف الفارغة التي أنشأتها باستخدام الكود أعلاه؟ لجعل نفسي أكثر وضوحًا ، أحتاج إلى إدخال قيمة ثابتة في جميع الصفوف الفارغة (تم حل هذا بالفعل مع الكود الخاص بك أعلاه) ثم أحتاج إلى إدخال قيمة ثابتة في جميع الصفوف الفارغة (هذه هي مشكلتي). أشكرك كما أتوقع ردك الكريم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل تقصد ملء صفوف فارغة بقيمة محددة؟ إذا كان الأمر كذلك ، فإن المقالة التالية cna تساعدك:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
رجاءا حاول فعلها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني الحصول على رمز VBA لحذف الصفوف بناءً على القيم المكررة في عمود محدد مع الاحتفاظ بجميع القيم الفريدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يا روي ، إذا كنت تريد إزالة الصفوف بناءً على القيم المكررة ، فيمكنك عادةً استخدام ملحق إزالة التكرارات ميزة في Excel لإزالة الصفوف. بالطبع ، إذا كنت بحاجة إلى رمز VBA ، فيرجى استخدام الكود أدناه: (أولاً ، يجب عليك تحديد نطاق البيانات الذي تريد إزالته ، ثم تشغيل هذا الرمز ، الصفوف بناءً على ستتم إزالة القيم المكررة في العمود الأول من اختيارك مرة واحدة.) الفرعية Delete_duplicate_rows ()
خافت Rng كمدى
تعيين Rng = التحديد
أعمدة Rng.RemoveDuplicates: = صفيف (1) ، رأس: = xl نعم
End Sub يرجى المحاولة ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع جدا!! شكرًا جزيلاً
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Muito obrigado ، salvou meu trabalho ، eu não tinha édia de como fazer. Muito obrigado mesmo!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
على الرحب والسعة. سعيد لأنه يساعد. أي أسئلة، لا تتردد في الاتصال بنا. أتمنى لك يوماً عظيماً.
مع خالص الشكر والتقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك إخباري بكيفية إدراج عمود بهذه الطريقة ، ما هو الرمز
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صديق،
يمكنك استخدام كود فبا هذا:

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


مع خالص الشكر والتقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
от выручили так выручили!
Сидел، ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الاسم البريد الإلكتروني عنوان الهاتف
0 الاسم البريد الإلكتروني عنوان الهاتف
سطر العنوان 2 الاسم الهاتف 0
الاسم البريد الإلكتروني عنوان الهاتف
0 الاسم البريد الإلكتروني عنوان الهاتف
سطر العنوان 2 0


كيف يمكنني تحرير هذا لبدء صف جديد عند كل قيمة فارغة أو قيمة 0 دون الحاجة إلى وجود أرقام هاتف بصفر لبدء صف جديد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا يا جارود

عذرًا ، لا يمكنني فهم مشكلتك بوضوح.
هل يمكنك شرح مشكلتك بمزيد من التفصيل؟ أو يمكنك إدراج لقطة شاشة أو ملف هنا.
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، hay algun codigo que me permita copiar los datos ، pero que en la primera columna que son fechas pueda ser consecutivo.

مثال

en vez de que quede asi

01/10/2022 19.258.369-4 خوان راميريز
01/10/2022 19.258.369-4 خوان راميريز
01/10/2022 19.258.369-4 خوان راميريز

كيد عاصي

01/10/2022 19.258.369-4 خوان راميريز
02/10/2022 19.258.369-4 خوان راميريز
03/10/2022 19.258.369-4 خوان راميريز

شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، hay algun codigo que me permita copiar los datos ، pero que en la primera columna que son fechas puedan ser consecutivas.

مثال

en vez de que quede asi

10/01/2022 19.258.369-4 خوان راميريز
10/01/2022 19.258.369-4 خوان راميريز
10/01/2022 19.258.369-4 خوان راميريز

كيد عاصي

10/01/2022 19.258.369-4 خوان راميريز
11/01/2022 19.258.369-4 خوان راميريز
12/01/2022 19.258.369-4 خوان راميريز

شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نص رائع vba!
كان لدي أكثر من 5000 صف أحتاج إلى إضافة صفوف جديدة إليها. أخبرني جميع المرشدين الآخرين أن أقوم بإنشاء عمود "مساعد" ، حيث سيستغرق الأمر جزءًا جيدًا من حياتي لإضافة 1,2،XNUMX نسخة معجون مرارًا وتكرارًا فقط لإضافة صفوف جديدة.
لذا ، شكرًا على هذا!
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL