Note: The other languages of the website are Google-translated. Back to English

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


panah gelembung kanan biru 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

doc loop sampai kosong 1

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.
doc loop sampai kosong 2

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.

doc loop sampai kosong 3 doc loop sampai kosong 4

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 fitur lengkap 30 percobaan gratis hari!
menggabungkan lembaran
 
Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan 30 hari.

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini mengulang kolom bukan baris
Komentar ini diminimalkan oleh moderator di situs
Untuk mengulang kolom, Anda harus menggunakan nomor baris.
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda menjelaskan apa syarat untuk berhenti mengulang? Apa yang membuat Anda keluar dari loop di Test1()?
Komentar ini diminimalkan oleh moderator di situs
Itu akan berhenti saat memenuhi kosong pertama di kolom
Komentar ini diminimalkan oleh moderator di situs
Katakanlah saya punya banyak baris ... adakah trik untuk membuat ini berjalan lebih cepat?
Komentar ini diminimalkan oleh moderator di situs
Loop berfungsi untuk saya kecuali loop melalui setiap baris terlepas dari itu kosong atau tidak.
Komentar ini diminimalkan oleh moderator di situs
VBA pertama menghasilkan hasil yang salah dalam kasus ketika ada satu atau nol baris data.

Anda mungkin membutuhkan sesuatu seperti

If Range("A1").Nilai = "" Maka
JumlahBaris = 0
ElseIf Range("A1").Offset(1, 0).Nilai = "" Kemudian
JumlahBaris = 1
Lain
JumlahBaris = Range("A1", Range("A1").End(xlDown)).Baris.Hitung
End If
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL