كيفية تكرار الصفوف حتى فارغة في عمود Excel؟
يوجد هنا عمود طويل يحتوي على بيانات تتضمن بعض الخلايا الفارغة ، وتريد تكرار الصفوف حتى تلتقي بخلية فارغة. في Excel ، لا توجد ميزة مضمنة يمكنها التعامل مع هذه المهمة ، ولكن يمكنني تقديم بعض وحدات الماكرو لتقديم خدمة لك.
تكرار الصفوف حتى تصبح فارغة باستخدام VBA
تكرار الصفوف حتى تصبح فارغة باستخدام VBA
1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود أدناه في البرنامج النصي الفارغ.
فبا: التكرار حتى فارغ
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
في الكود ، A1 هي الخلية الأولى التي تريد إجراء حلقة منها ، يمكنك تغييرها حسب حاجتك.
3. صحافة F5 مفتاح لبدء تكرار العمود ، ثم سيتوقف المؤشر عند أول خلية فارغة تم استيفائها.
ملاحظات: إذا كنت تريد إجراء تكرار خلال البيانات حتى تلبية الخلايا الفارغة المستمرة ، يمكنك استخدام رمز الماكرو هذا.
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End Sub
ثم تحتاج إلى تحديد الخلية الأولى التي تريد تكرارها في ملف كوتولس ل إكسيل الحوار، انقر فوق OK، ثم يتوقف المؤشر في أول خلية فارغة مستمرة.
ادمج بسهولة أوراق / مصنف متعدد في ورقة واحدة أو مصنف واحد
|
قد يكون دمج الأوراق المتعددة أو المصنفات في ورقة واحدة أو مصنف واحد أمرًا صعبًا في Excel ، ولكن مع ملحق دمج في Kutools for Excel ، يمكنك دمج عشرات الأوراق / المصنفات في ورقة واحدة أو مصنف واحد ، كما يمكنك دمج الأوراق في واحدة بعدة نقرات فقط. انقر للحصول على نسخة تجريبية مجانية كاملة المواصفات لمدة 30 يومًا! |
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30 |
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!