Excel sütununda boş olana kadar satırlar arasında nasıl geçiş yapılır?
Burada, bazı boş hücreler içeren verileri içeren uzun bir sütun var ve boş hücreyle buluşana kadar satırlar arasında döngü yapmak istiyorsunuz. Excel'de bu işi halledebilecek yerleşik bir özellik yoktur, ancak size bir iyilik yapmak için bazı makrolar ekleyebilirim.
VBA ile boş olana kadar satırlar arasında döngü yapın
VBA ile boş olana kadar satırlar arasında döngü yapın
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu boş komut dosyasına yapıştırın.
VBA: Boş olana 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ü yapmak istediğiniz ilk hücredir, ihtiyacınız olduğu gibi değiştirebilirsiniz.
3. Basın F5 sütun döngüsünü başlatmak için tuşuna basın, ardından imleç ilk karşılaşılan boş hücrede duracaktır.
not: Sürekli boş hücrelerle karşılaşana kadar veriler arasında döngü yapmak 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 SubArdından, döngü yapmak istediğiniz ilk hücreyi seçmeniz gerekir. Kutools for Excel iletişim, tıklayın OK, ardından imleç ilk sürekli boş hücrelerde durur.
 |
 |
Birden çok sayfayı / Çalışma kitabını tek bir sayfaya veya Çalışma Kitabına kolayca birleştirin
|
| Çoklu sayfaları veya çalışma kitaplarını tek bir sayfaya veya çalışma kitabına birleştirmek, Excel'de baştan sona olabilir, ancak Birleştirmek içinde işlemek Kutools for Excel, düzinelerce sayfayı/çalışma kitabını birleştirerek tek bir sayfa veya çalışma kitabında birleştirebilirsiniz, ayrıca sayfaları yalnızca birkaç tıklamayla tek bir sayfada birleştirebilirsiniz. Tam özellikli 30 günlük ücretsiz deneme için tıklayın! |
 |
| Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
En İyi Ofis Üretkenlik Araçları
Excel Becerilerinizi Güçlendirin Kutools for Excelve Verimliliği Daha Önce Hiç Olmadığı Şekilde Deneyimleyin. Kutools for Excel Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab Sekmeli arabirimi Office'e getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
