كيف يمكن التكرار عبر الصفوف حتى الوصول إلى الخلية الفارغة في عمود إكسل؟
لديك هنا عمود طويل يحتوي على بيانات تتضمّن بعض الخلايا الفارغة، وترغب في ملء القيم تلقائيًا عبر الصفوف حتى تصل إلى خلية فارغة. لا يحتوي إكسل على ميزة مدمجة لأداء هذه المهمة، لكنني أستطيع تزويدك بعدد من الماكروات التي ستسهّل عليك تنفيذها.
التكرار عبر الصفوف حتى الخلية الفارغة باستخدام VBA
التكرار عبر الصفوف حتى الخلية الفارغة باستخدام VBA
1. اضغطAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقرإدراج > وحدة نمطية، ثم الصق الكود أدناه في النص البرمجي الفارغ.
VBA: التكرار حتى الخلية الفارغة
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بعد ذلك، في مربع الحوارKutools لـ Excel، حدد الخلية الأولى التي تريد أن تبدأ منها التكرار، ثم انقرموافق، وسيتوقف المؤشر عند أول خلية فارغة متتالية.
 |  |
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل