Bagaimana cara mengulang baris sampai kosong di kolom Excel?
Berikut adalah kolom panjang dengan data yang termasuk beberapa sel kosong, dan Anda ingin mengulang baris hingga bertemu sel kosong. Di Excel, tidak ada fitur bawaan yang dapat menangani pekerjaan ini, tetapi saya dapat memperkenalkan beberapa makro untuk membantu Anda.
Ulangi baris sampai kosong dengan VBA
Ulangi baris sampai kosong dengan VBA
1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempel kode di bawah ini ke skrip kosong.
VBA: Ulangi sampai kosong
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
Dalam kode, A1 adalah sel pertama yang ingin Anda putar, Anda dapat mengubahnya sesuai kebutuhan.
3. tekan F5 kunci untuk memulai perulangan kolom, maka kursor akan berhenti di sel kosong yang pertama bertemu.
Note: Jika Anda ingin mengulang data hingga bertemu sel kosong terus menerus, Anda dapat menggunakan kode makro ini.
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
Kemudian Anda perlu memilih sel pertama yang ingin Anda putar dari dalam Kutools untuk Excel dialog, klik OK, lalu kursor berhenti di sel kosong berkelanjutan pertama.
Gabungkan beberapa lembar / Buku Kerja dengan mudah menjadi satu lembar atau Buku Kerja
|
Untuk menggabungkan beberapa lembar atau buku kerja ke dalam satu lembar atau buku kerja mungkin membosankan di Excel, tapi dengan Menggabungkan Fungsi di Kutools for Excel, Anda bisa menggabungkan lusinan lembar / buku kerja menjadi satu lembar atau buku kerja, juga, Anda bisa menggabungkan lembaran menjadi satu dengan beberapa klik saja. Klik untuk uji coba gratis 30 hari berfitur lengkap! |
Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!