Bagaimana cara menghapus nilai unik dari kolom di Excel?
Biasanya, sebagian besar dari kita ingin menghapus nilai duplikat dari kolom, tetapi terkadang, Anda mungkin ingin menghapus nilai unik yang hanya muncul satu kali di kolom. Tutorial ini berbicara tentang trik bagi Anda untuk menghapus nilai unik hanya dari kolom di Excel.
Hapus nilai unqiue dengan VBA di Excel
Hapus nilai unqiue dengan Kutools for Excel
Hapus nilai unqiue dengan VBA di Excel
Menggunakan VBA dapat dengan cepat menghapus semua nilai unik dari satu kolom.
1. tekan Alt + F11 untuk menampilkan Microsoft Visual Basic untuk Aplikasi jendela.
2. Di jendela, klik Menyisipkan > Modul untuk menampilkan jendela modul baru, lalu salin kode VBA berikut ke jendela modul.
VBA: Hapus nilai unik dari kolom.
Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
xValue = Arr(i, 1)
Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
xValue = Dic(xKey)
If xValue > 1 Then
For i = 1 To xValue
Arr(xIndex, 1) = xKey
xIndex = xIndex + 1
Next
End If
Next
WorkRng.Value = Arr
End Sub
4. klik OK, dan semua nilai unik dihapus.
Hapus nilai unqiue dengan Kutools for Excel
Jika Anda tidak terbiasa dengan VBA, Anda dapat mempertimbangkan untuk menggunakan fitur Kutools for Excel's Select Duplicate & Unique Cells untuk menghapus nilai unik di Excel.
Kutools untuk Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang
1. Pilih kolom yang ingin Anda hapus nilai uniknya, dan klik Kutools > Pilih Alat > Pilih Sel Duplikat & Unik. Lihat tangkapan layar:
2. Pada dialog pop-out, periksa Nilai unik saja dan klik Ok, lalu keluar dari dialog ini. Lihat tangkapan layar:
3. Kemudian semua nilai muncul hanya satu kali telah dipilih. Dan klik kanan untuk mengklik Delete di menu konteks. Lihat tangkapan layar:
4. Dalam Delete dialog, centang Seluruh baris, dan klik OK. Lihat tangkapan layar:
Sekarang Anda dapat melihat nilai unik dihapus.
|
|
|
jenis: Jika Anda hanya ingin menghapus konten sel, Anda dapat mengklik Isi yang jelas dari menu konteks di langkah 3.
Artikel Relatif:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
