Menghilangkan Duplikasi Dalam Excel

May 5, 2008 at 9:03 pm Leave a comment

Berikut adalah kode VBA untuk menghapus duplikasi data serta menghilangkan item yang tidak sama.

Gambar di bawah menunjukkan dua buah kolom yang berisi data. Kita ingin menghapus duplikasi data dari kolom kedua dengan membandingkan ke isi kolom A.

Kode VBAnya adalah sebagai berikut:

Sub RemoveDuplicatesInCells()

    Dim c As Range
    Dim rCheckForDupes As Range

    Set rCheckForDupes = Range(“A1:B14”)

    With rCheckForDupes

        For Each c In .Columns(2).Cells

            If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0 Then
                c.ClearContents
            End If

        Next c

    End With

    Set rCheckForDupes = Nothing

End Sub


Hasilnya adalah sebagai berikut:

Bagaimana untuk menghapus sel-sel yang kosong? Maka kita ubah kode VBA menjadi

.

Sub RemoveDuplicatesInCells2()

    Dim c As Range
    Dim rCheckForDupes As Range

    Set rCheckForDupes = Range(“A1:B14”)

    With rCheckForDupes

        For Each c In .Columns(2).Cells

            If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0 Then
                c.ClearContents
            End If

        Next c

        .Columns(2).SpecialCells(xlCellTypeBlanks).Select

        Selection.Delete Shift:=xlUp

        .Cells(1).Select

    End With

    Set rCheckForDupes = Nothing

End Sub


Hasilnya adalah:.

Untuk menghapus data yang tidak sama maka, ubahlah tanda lebih besar (>) dalam “If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0” menjadi tanda sama dengan (=) sign.

 

Sumber: andrewsexceltips.com.

Entry filed under: Uncategorized. Tags: .

Offices 2007 Related Books Rumus Array (CSE) dalam Excel

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 94,642 hits

Twitter Updates

Iklan


%d bloggers like this: