Cara Menambahkan Baris Kosong di Setiap Data Ganda dalam Suatu Kolom Tunggal
Kali ini kami akan berbagi cara menyisipkan suatu baris kosong pada setiap data ganda dalam suatu kolom.
Contoh kode macro di bawah ini selain memisahkan data ganda, kode ini juga mengurutkannya sesuai abjad.
Seperti contoh worksheet tabel data yang dipertunjukkan di bawah ini, kode macro menghasilkan kolom Nama Pelanggan diurutkan sesuai dengan abjad dengan baris kosong pada setiap data ganda di kolom A tersebut.
Berikut ini langkah-langkah pembuatan kode macro:
1. Siapkan worksheet yang berisi data ganda atau Anda bisa menyalin data contoh seperti pada gambar.
2. Buka VBE dengan menekan Alt+F11.
3. Buat module melalui menu Insert > Module.
4. Tetapkan judul macro misalnya UrutkanDGTerpisah:
Sub UrutkanDGTerpisah()
5. Matikan dulu ScreenUpdating:
Application.ScreenUpdating = False
6. Urutkan tabel Nama Pelanggan mulai dari A ke Z:
Key1:=Range("A4"), Order1:=xlAscending, Header:=xlYes
7. Tentukan variabel dengan jenis data Long untuk baris terakhir di kolom A.:
Dim bt As Long
8. Tentukan baris data terakhirnya:
bt = Cells(Rows.Count, 1).End(xlUp).Row
9. Tentukan variabel dengan jenis data Long untuk menilai setiap baris:
Dim bn As Long
10. Gunakan loop susunan For...Next pada setiap Nama Pelanggan di kolom A:
If Cells(bn, 1).Value <> Cells(bn - 1, 1).Value Then _
Rows(bn).Resize(1).Insert
Next bn
11. Hidupkan kembali ScreenUpdating:
Application.ScreenUpdating = True
12. Secara lengkap kodenya menjadi sebagai berikut:
Application.ScreenUpdating = False
Range("A3").CurrentRegion.Sort _
Key1:=Range("A4"), Order1:=xlAscending, Header:=xlYes
Dim bt As Long
bt = Cells(Rows.Count, 1).End(xlUp).Row
Dim bn As Long
For bn = bt To 5 Step -1
If Cells(bn, 1).Value <> Cells(bn - 1, 1).Value Then _
Rows(bn).Resize(1).Insert
Next bn
Application.ScreenUpdating = True
End Sub
13. Buka kembali worksheet dengan menekan Alt+Q
14. Buka kotak dialog Macro dengan cara menekan Alt+F8 lalu pilih UrutkanDGTerpisah dan klik Run.
Itulah penjelasan tentang bagaimana cara menambahkan suatu baris kosong pada setiap data ganda dalam suatu kolom.
Selamat mencoba dan semoga postingan ini bermanfaat.