Excel - Membandingkan sel di beberapa kolom

Excel adalah alat praktis untuk manipulasi data dan perbandingan berbagai sumber data. Ketika dikombinasikan dengan VBA, Excel menjadi alat yang bahkan lebih kuat untuk mengotomatisasi pekerjaan rumit yang sebaliknya mungkin memakan waktu lama bagi pengguna. Salah satu contohnya adalah membandingkan nilai sel di beberapa kolom . Menggunakan makro satu dapat menyesuaikan kode untuk mencari nilai-nilai spesifik dalam urutan naik atau turun di kolom . Setelah kriteria yang ditentukan oleh pengguna cocok dengan sel yang relevan, dapat disorot atau dihapus sesuai kebutuhan pengguna dalam perangkat lunak perkantoran ini.

Isu

Saya memiliki dua kolom A dan B

A memiliki item yang telah diberi harga

B memiliki harga barang (tidak ada tanda dolar)

Apakah mungkin untuk memiliki makro yang turun kolom untuk membandingkan harga untuk item yang sama di kolom A dan menghapus harga terendah?

Contoh:

 Apa yang saya miliki: mobil 100 mobil 200 mobil 300 kapal 50 kapal 60 kapal 500

 Yang saya inginkan: mobil 300 perahu 500

Daftar ini jauh lebih lama dari ini .....

Larutan

Ini akan menghapus baris duplikat (ketika item dan harganya sama) dan akan menghapus harga yang lebih rendah ...

 Jika ActiveSheet.AutoFilterMode Kemudian Sel.Pilih Seleksi. AutoFilter Selesai Jika Sel.Pilih Seleksi. Urut Kunci _: Kunci1: = Rentang ("a2"), Urutan1: = xlAscending, _ Kunci2: = Rentang ("b2"), Urutan2: = xlDengurangi, _ Header: = xlYa, OrderCustom: = 1, _ MatchCase: = Salah, Orientasi: = xlTopToBottom, _ DataOption1: = xlSortNormal, _ DataOption2: = xlSortNormal lrow = 2 Do While (Cell (lrow, 1) "") Jika Cells (lrow, 1) = Cells (lrow + 1, 1) Kemudian Baris (lrow + 1). Hapus Else lrow = lrow + 1 End If Loop