Hapus baris di Excel berdasarkan nilai yang dikembalikan di sel baris

Saya memiliki lembar kerja di Excel dengan nilai di beberapa baris di kolom B yang telah dikembalikan sebagai nol (0) tetapi masih memiliki rumus di dalam sel. Saya ingin dapat menghapus hanya baris-baris ini menggunakan makro.

microsoft-excel worksheet-function Bob Orr
sumber

Apakah Anda ingin semua sel di Kolom B yang berisi rumus dihapus atau hanya sel yang rumusnya mengembalikan 0?

adayzdone

Jawaban:

Sebagai tutor perangkat lunak, saya terkejut Anda belum tahu bagaimana melakukan ini (atau apakah pertanyaan ini hanya tes?) Namun, kode berikut dapat membantu:

Sub Macro1()
    Columns("B:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("B:B").AutoFilter Field:=1, Criteria1:="0"
    Selection.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    ActiveSheet.Range("B:B").AutoFilter Field:=1
    Selection.AutoFilter
    Range("B1").Select
End Sub

tapi saya akan merekomendasikan bahwa (i) Anda menghidupkan perekam makro dan membuat makro untuk Anda sendiri dan (ii) berhati-hati dengan makro yang tidak dibuat oleh Anda sendiri - khususnya yang berisi 'Hapus' di dalamnya!

Perhatikan ini dihapus Row1 jadi mungkin yang terbaik untuk menyisipkan baris di bagian atas dulu - juga menghapus baris di mana "0" tidak berasal dari rumus.

pnuts
sumber