Excel - Hapus baris dengan nilai yang sama

Isu

Saya membutuhkan formula untuk menyelesaikan masalah ini. Saya ingin menemukan sel serupa dan menghapus sel-sel itu dari lembar kerja.

Berikut ini contohnya:

 Tanggal Transaksi ABCD Referensi Transaksi Deskripsi Jumlah 1/25/2010 STD0182 13993 (108, 16) 1/25/2010 STD0182 - Glenn D Smith 13933 - Q1 2010 773 99, 00 1/25/2010 STD0182 - Glenn D Smith 13933 - Q1 2010 Pajak 773 9, 16 1/25/2010 STD0268 1974 (423.72) 1/25/2010 STD0268 - Layanan Penasihat Adv 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Layanan Penasihat Adv 1974 - Q1-Q4 2010 Pajak 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - Just Plan Etc 7206 - Q1 2010 773 99.00 1/25/2010 STD0431 - Just Plan Etc 7206 - Q1 2010 Pajak 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - Sol Perencanaan Aset 16670 - Q1 2010 773 99.00 1/25/2010 STD0690 - Sol Perencanaan Perencanaan 16670 - Q1 2010 Pajak 773 8.66

Jadi saya ingin rumus untuk mencari STD # yang sama (STD0182 - Trans Ref Ref) dan menghapus jika mengandung STD # yang sama.

Larutan

Tidak sepenuhnya jelas tentang bagian ini "STD0182 - Ref Transaksi"

Asumsi.

1. Anda ingin menghapus baris jika, nilai kolom B-nya sama dengan nilai di baris di atasnya

2. Data diurutkan pada kolom B

3. Kolom B Tidak mengandung sel kosong

 Sub removeDups () Dim myRow As Long Dim sTRef As String sTRef = Cells (2, 2) myRow = 3 Do While (Cells (myRow, 2) "") If (sTRef Cells (myRow, 2)) Kemudian sTRef = Cells myRow, 2) myRow = myRow + 1 Else Rows (myRow) .Pilih Seleksi.Delete Shift: = xlUp End Jika Loop End Sub