İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel sütununda boşluqlara qədər satırlar arasında keçmək üçün necə?

Bəzi boş hüceyrələri əhatə edən məlumatlarla uzun sütun var və yığıncaq boşluğuna qədər satırlardan keçmək istəyirsiz. Excel-də, bu işi həll edə bilməyən daxili xüsusiyyət yoxdur, amma bəzi xeyli makroları təqdim edə bilərəm.

VBA ilə boş olana qədər satırlar arasında döngə çəkin

Asanlıqla birdən çox təbəqəni / iş kitabını vahid hesabatı və ya iş dəftərinə birləşdirin

Bir neçə hesabat və ya iş kitabını bir hesabat və ya iş kitabına birləşdirmək üçün Excel-də mükəmməl ola bilər, ancaq Combine Excel üçün Kutools funksiyasında bir çox hesabatı və ya iş kitabını düzəldərək düzəldə bilərsiniz ki, bir neçə klik ilə birləşdirə bilərsiniz. Tam xüsusiyyətli 60 gün pulsuz sınaq üçün tıklayın!
çarxlar birləşdirir
Excel üçün Kutools: 300 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

arrow mavi sağ bubble VBA ilə boş olana qədər satırlar arasında döngə çəkin

1. Basın Alt + F11 düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, və kodu boş skriptə qoyun.

VBA: Loop qədər boş

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

1 boşluq qədər doc loop

Kodda, A1 döngə etmək istədiyiniz ilk hüceyrədir, sizə lazım olduğu kimi dəyişə bilərsiniz.

3. Basın F5 sütunu looplaşdırmağa başlamaq üçün düyməni basın, sonra imlec ilk boşluqlu boş nöqtədə dayanacaq.
2 boşluq qədər doc loop

Qeyd: Sürekli boş hücreleri karşılayana kadar verileri çevrim yapmak isterseniz, bu makro kodunu istifadə edə bilərsiniz.

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

Sonra da içərisində loop etmək istədiyiniz ilk hüceyrəni seçməlisiniz Excel üçün Kutools dialoq basın OK, sonra imleci ilk davamlı boş hüceyrələrdə durur.

3 boşluq qədər doc loop 4 boşluq qədər doc loop

Sekmeli tarama ve birden çox Excel iş kitabını / Word sənədlərini Firefox, Chrome, İnternet olaraq redaktə edin 10 araşdırın!

Firefox / Chrome / IE-də birdən çox veb səhifəni keçirmək üçün tanış ola bilərsiniz və asanlıqla müvafiq sekmeleri asanlıqla tıklayaraq onların arasında keçid edə bilərsiniz. Office Tab, bir Excel iş kitabını və ya Word sənədlərini bir Excel pəncərəsində və ya Word pencerəsində gözdən keçirmək və onların sekmelerini tıklayarak asanlıqla keçmək üçün imkan verən oxşar emal dəstəkləyir. Office Tab-ın 45-gün sınaq üçün basın!

ot excel


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Robert · 2 months ago
    The loop works for me except it loops through every single row regardless of it being blank or not.
  • To post as a guest, your comment is unpublished.
    Shane · 7 months ago
    Lets say I have a ton of rows...any tricks on making this run faster?
  • To post as a guest, your comment is unpublished.
    Marija · 9 months ago
    Can you please explain what is the condition to stop looping? What makes you break out of the loop in Test1()?
    • To post as a guest, your comment is unpublished.
      Sunny · 8 months ago
      It will stop while meeting the first blank in the column
  • To post as a guest, your comment is unpublished.
    J · 1 years ago
    Its looping a column not a row
    • To post as a guest, your comment is unpublished.
      SomeGuest · 9 months ago
      In order to loop through a column, you must go by row number.