Cara Menghilangkan Macro Pada Excel

Cara Menyetip Baris Nol/Rows Blank Dengan Vba Excel

Sering sekali data nan kita dapatkan berpunca internet atau file hasil conversi terdapat baris kosong maupun row blank diantara data yang ada. Cara menghilangkan saf zero sangatlah mudah.

Caranya klik kanan puas Rows yang blank lebih jauh keluar pilihan dan pilihlah delete. Namun kalau baris nan zero terletak lain beraturan dan terdapat diantara banyak data, kita harus menghapusnya satu persatu dan mengulang pekerjaan nan sama.

Cara Menghapus Baris Kosong/Rows Blank Dengan Vba Excel
Pendirian Menghapus Baris Kosong/Rows Blank Dengan Vba Excel

Menghapus baris kosong atau row blank diantara data juga dapat dilakukan dengan DialogBox Go To Special.

Caranya klik tab Home selanjunya plong ribbon menu Editing memperbedakan Find & Select, membeda-bedakan Go To Special.

Selanjunya akan muncul DialogBox Go To Special dan klik select option Blank selanjutnya klik Ok. Maka distrik ririt nan nol diantara data akan di blog. Klik kanak pada baris yang sudah lalu diblog pilih Delete.

Secara publik pengguna Excel menggunakan salah satu dari kedua cara tersebut untuk menghapus larik kosong.

Menggunakan cara tersebut merupakan cara termudah yang tidak perlu banyak membuang tenaga dan perasaan.

Namun bakal orang nan suka membuat sistem kerja Excel lebih otomatis akan lebih suka menggunakan tombol yang dapat di klik buat melakukan tugasnya menghapus derek nihil. Bagi yang sering dan suka melakukan dengan cara mudah mana tahu posting ini cukup disini saja.

bagi yang cak hendak menindak lanjuti dengan menunggangi perintah kode silahkan melanjutkan membaca posting ini.

Dengan menggunakan perintah kode Vba kondisi menghapus baris zero ataupun row blank dapat dilakukan dengan cepat. sahaja satu kelihatannya klik saja semua baris kosong hilang mulai sejak data.

Pada kesempatan ini dengan judul posting Cara Menyetip Baris Zero/Rows Blank Dengan Vba Excel Admin akan berbagi kode Vba yang bisa gunakan buat keperluan menghapus baris kosong.

Ancang – Persiapan Menciptakan menjadikan Cembul Bunuh Jejer Kosong/Row Blank Dengan Menggunakan Kode Vba Excel

  • Beber Excel, dan buatlah data seperti nan terlihat pada gambar format gif diatas nan dilengkapi dengan baris kosong tanpa data.
  • Tambahkan sebuah CommandButton dengan cara klik pada tab Developer, pada ribbon menu insert memilah-milah Insert dan klik puas CommandButton yang terdapat pada ActiveX Controls. Atur properties CommandButton dengan mandu klik kanan pada CommandButton1 pilih properties. Ubahlah caption CommandButton1 menjadi Del Blank.
  • Selanjutnya klik kanan lega CommandButton1 dengan caption Del Blank pilih View Code. Tulislah kode berikut ini pada ventilasi kode.

Private Sub CommandButton1_Click()

Inci SemuaBaris As Range
Inci BarisData As Range

Application.ScreenUpdating = False
Set SemuaBaris = Selection.SpecialCells(xlCellTypeBlanks) ‘Pilih Cell Blank
For Each BarisData In SemuaBaris.Rows ‘tiap – tiap baris yang hampa
If WorksheetFunction.CountA(BarisData.EntireRow) = 0 Then ‘Bila tidak terserah data pada kolom
BarisData.EntireRow.Delete ‘menghapus baris
End If
Next BarisData
Application.ScreenUpdating = True
End Sub

  • Selepas batik kode diatas sreg CommandButton1 dengan caption Del Blank,.Ujilah pentol tersebut, bila penulisan dan penaruhan kode telah benar maka saf kosong nan ada diantara data akan terhapus dengan satu siapa klik saja.
  • Maupun juga dapat menggunakan kode berikut ini untuk menghapus baris kosong/Blank

Private Sub CommandButton1_Click()

Dim rng As Range

‘Melacak Larik kosong
On Error GoTo NoBlanksFound
Set rng = Range(“A1:A10”).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

‘Musnahkan Larik  yangKosong diantara data
rng.EntireRow.Delete

Exit Sub

‘Bila Blank Tidak Ditemukan
NoBlanksFound:
MsgBox “Tidak Menemukan Baris Kosong”
End Sub

Demikian posting Cara Menghapus Baris Hampa/Rows Blank Dengan Vba Excel. Semoga dapat dijadikan referensi kerjakan yang mencari takrif Pendirian Menghapus Baris Zero/Rows Blank Dengan Vba Excel.

Seharusnya bisa dikembangkan lagi sesuai dengan selera dan keinginan masing-masing. Jikalau posting ini dirasakan ada manfaat mohon dapat dishare dengan mengklik tombol share.

Saran dan kritikan boleh disampaikan plong kolom komentar dengan bijaksana.

Source: https://kampusoffice.blogspot.com/2017/08/cara-menghapus-baris-kosongrows-blank.html