Sub DelDelDel(Rg As Range)
' siti Vi / delete rows sisakan data uniq
' bluewater 12 apr 2010
'-----------------------------------------
Dim C As Range, n As Long, T As String
T = "|"
For Each C In Rg
If InStr(1, T, "|" & C & "|") = 0 _
Then T = T & C & "|" Else C = ""
Next C
For n = Rg.Rows.Count To 1 Step -1
If Rg(n, 1) = "" Then Rg(n, 1).EntireRow.Delete
Next n
End Sub-------------------------------------------------------------------------------- ----- Original Message ----- From: PP 03 To: [email protected] Sent: Monday, April 12, 2010 4:10 PM Subject: [belajar-excel] delete range kembar para pakar excel mohon bantuannya gimana cara jika kolom A ada yang sama baris yang sama tersebut di delete dan menyisakan 1 yang pertama lebih jelasnya lihat lampiran mohon maaf bila pernah di posting terimakasih Sidol
ctv__DeleteBaris_sisakan_DataUnique.xls
Description: MS-Excel spreadsheet
