Excel sütununda boş hücreye kadar satırları nasıl döngüye sokabilirsiniz?

İşte, bazı boş hücreler içeren uzun bir veri sütunu var ve boş bir hücreye rastlayana kadar satırlar arasında döngü oluşturmak istiyorsunuz. Excel'de bu işi yapabilen yerleşik bir özellik bulunmamakta, ancak size yardımcı olabilecek bazı makroları tanıtacağım.

VBA ile boş hücreye kadar satırlarda döngü oluşturma

VBA ile boş hücreye kadar satırlarda döngü oluşturma

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu boş betiğe yapıştırın.

VBA: Boş hücreye kadar döngü

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

Kodda, A1, döngüye başlamak istediğiniz ilk hücredir, ihtiyacınıza göre değiştirebilirsiniz.

3. Tuşa basın F5 Sütunu döngülemeye başlamak için, ardından imleç ilk karşılaşılan boş hücrede duracaktır.

Not: Eğer ardışık boş hücrelere rastlayana kadar veriler arasında döngü oluşturmak istiyorsanız, bu makro kodunu kullanabilirsiniz.

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

Ardından, Kutools for Excel iletişim kutusunda döngüye başlamak istediğiniz ilk hücreyi seçmeniz gerekir, Tamam'a tıklayın, ardından imleç ilk ardışık boş hücrelerde durur.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!