Hapus kedua duplicate data

  1. 4 minggu lalu

    Halo Moderator BEO

    Saya ingin bertanya lagi nihh, seputar VBA

    Jadi Kondisinya

    • Jika terdapat Nama dan Nama Belakang yang sama, maka profile (satu row) akan terhapus keduanya, (bukan kehapus salah satu)
    • Yang terhapus berada di table yang sama (maka tidak perlu pindah ke table yang lain)

    untuk memudahkan, saya lampirkan file nya.

    Terima kasih banyak yah

  2. @Shinzuriki

    coba :

    Sub tes()
    Dim arr() As Variant
    Dim rng As Range, sel As Range, x As Long
    x = Range("E" & Rows.Count).End(xlUp).Row
    Set rng = Range("E7:E" & x)
    ReDim arr(x)
    
        For Each sel In rng
            arr(sel.Row) = sel.Value & sel.Offset(0, 1).Value
        Next
    
        For i = UBound(arr) To LBound(arr) Step -1
            n = Application.Count(Application.Match(arr, Array(arr(i)), 0))
            If n > 1 Then
                Range("E" & i & ":G" & i).Delete (xlShiftUp)
            End If
        Next
    
    Range("E7:G" & x).Borders.LineStyle = xlContinuous
    End Sub

  3. 3 minggu lalu

    @manweljs_

    Terima kasih gan atas coding, saya baru coba. ternyata bisa.

    Code ini
    x = Range("E" & Rows.Count).End(xlUp).Row

    Artinya Range E, F, G yah gan?

  4. @Shinzuriki itu untuk mencari baris terakhir berdasarkan kolom E

 

atau Mendaftar untuk ikut berdiskusi!