كيفية التنقل عبر الصفوف حتى الوصول إلى خلية فارغة في عمود Excel؟

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

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

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

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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، انقر فوق موافق، ثم يتوقف المؤشر عند أول مجموعة من الخلايا الفارغة المتتالية.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!