Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara menghapus baris duplikat dan menyimpan nilai tertinggi hanya di Excel?

Misalnya Anda memiliki tabel pembelian di Excel seperti gambar pertama yang ditampilkan. Sekarang Anda perlu menghapus baris duplikat berdasarkan kolom Buah, dan menyimpan nilai tertinggi dari buah-buahan yang sesuai di kolom Jumlah saat gambar kedua ditampilkan. Ada solusi yang dapat Anda pikirkan? Artikel ini akan membagikan dua trik untuk mengatasinya.

Hapus baris duplikat dan pertahankan nilai tertinggi hanya dengan VBA

Hapus baris duplikat dan pertahankan nilai tertinggi hanya dengan Kutools for Excel

Hapus baris duplikat dengan mudah berdasarkan kriteria dalam satu kolom dan hanya pertahankan nilai tertinggi di Excel

Kutools untuk Excel Lanjutan Gabungkan Baris utilitas dapat membantu pengguna Excel dengan cepat mengetahui nilai maksimum dari nilai minimum setiap item di kolom lain dengan mudah. Uji Coba Gratis Fitur Lengkap 30 hari!

iklan kombinasi lanjutan baris maks

Utilitas Advanced Combine Rows ini juga dapat menggabungkan baris dan nilai terpisah dengan tanda tertentu, atau menggabungkan baris dan menghitung jumlah, jumlah kemunculan, nilai maksimum / minimum, rata-rata, dll.

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2019 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.


Misalkan Anda memiliki tabel seperti gambar di bawah ini. Dan metode ini akan memperkenalkan makro VBA untuk menghapus baris duplikat berdasarkan kolom tertentu dan menyimpan nilai tertinggi hanya di kolom lain di Excel. Harap lakukan sebagai berikut:

1. tekan lain + F11 bersamaan untuk membuka jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, dan tempel kode berikut ke jendela Modul pembuka baru.

VBA: Hapus baris duplikat dan pertahankan nilai tertinggi

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. tekan F5 atau klik Run tombol untuk menjalankan VBA ini.

4. Sekarang kotak dialog keluar. Pilih kolom tempat Anda akan menghapus duplikat baris dan menyimpan nilai tertingginya, lalu klik OK .

Dalam kasus kami, kami akan menghapus baris duplikat dengan Kolom Buah dan menyimpan nilai tertinggi di Kolom Jumlah, oleh karena itu saya memilih kolom Buah dan kolom Jumlah seperti gambar di atas yang ditunjukkan.

Kemudian Anda akan melihat baris duplikat dihapus berdasarkan kolom Buah, dan nilai tertinggi dari buah yang sesuai disimpan di kolom Jumlah. Lihat tangkapan layar:

Catatan:

(1) Rentang yang ditentukan harus dimulai dengan kolom tempat Anda akan menghapus baris duplikat.

(2) VBA ini hanya dapat menyimpan nilai tertinggi di kolom tepat di belakang kolom tempat Anda menghapus baris duplikat.

(3) VBA ini tidak berfungsi di Microsoft Excel 2007.


VBA di atas mungkin tidak cukup mudah bagi sebagian pengguna, dan hanya dapat menyimpan nilai tertinggi di kolom di belakang kolom kriteria. Tapi Kutools for Excel's Lanjutan Gabungkan Baris utilitas akan membantu Anda dengan mudah memecahkan masalah ini dengan mudah.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Uji Coba Gratis Sekarang!

1. Pilih tabel yang akan Anda hapus baris duplikatnya dan pertahankan nilai tertinggi (pilih A1: C24 dalam kasus kami), dan klik Kutools > Content > Lanjutan Gabungkan Baris.

2. Pada kotak dialog Combine Rows Based on Column pembuka, konfigurasikan sebagai berikut:

(1) Pilih kolom Buah (yang akan Anda hapus baris duplikatnya), lalu klik Kunci utama tombol;

(2) Pilih kolom Jumlah (Yang akan Anda pertahankan nilai tertinggi), lalu klik Dihitung > max.

(3) Tentukan aturan kombinasi untuk kolom lain yang Anda butuhkan.

doc hapus duplikat pertahankan nilai tertinggi 2

3. Klik Ok tombol. Dan kemudian Anda akan melihat semua baris duplikat dihapus berdasarkan Kolom Buah dan hanya nilai maksimal buah yang sesuai yang disimpan di kolom Jumlah. Lihat tangkapan layar:

The Lanjutan Gabungkan Baris Kegunaan Kutools for Excel dapat dengan mudah menggabungkan baris dengan satu kolom, dan kemudian menghitung kolom lain berdasarkan kolom ini juga, seperti Sum, Count, Max, Min, Product, dll. Klik untuk uji coba gratis 60 hari, tidak ada batasan!


Kutools untuk Excel menyertakan lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (1)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
dalam contoh VBA, kolom tanggal tidak memfilter. mohon saran.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan