jika ada data seperti ini
ada
ada
ada
ada lagi
ada lagi
ada lagi
bukan
bukan
bukan
bukan
bukan
dan
dan
saya mengatakan ada 4 item (1.ada, 2.ada lagi, 3.bukan, 4.dan)
mohon bantuannya
Sidol
----- Original Message -----
From: siti Vi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 13, 2010 1:48 PM
Subject: Re: [belajar-excel] delete range kembar
sebentar....
codoingnya sih gampang...
tetapi kayaknya anda sendiri tidak terlalu memperhatikan istilah
kalau ada data spt ini
ada
ada
ada
ada lagi
ada lagi
ada lagi
bukan
bukan
bukan
bukan
bukan
dan
dan
anda mengatakan jumlah yang kembar itu ada berapa item ?
------------------------------------------------------------------------------
----- Original Message -----
From: PP 03
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 13, 2010 1:19 PM
Subject: Re: [belajar-excel] delete range kembar
terimakasih mas hendrik maaf cara itu di office 2003 punyaku kok tidak ada
menu Data-Removeduplicates
dan terimakasih bu siti, tapi kalo
1.tanpa bantuan inputbox dan kolom yang di tuju itu pasti kolom A
2.sebelum melakukan proses Delete.di tampilkan MsgBox yang menanyakan mau
di delete atau tidak dan menampilkan jumlah yang kembar itu ada sekian item,
jika ya langsung aja proses deletingnya
mohon maaf jika tambahannya lebih banyak dari permintaan semula
terimakasih.
Sidol
----- Original Message -----
From: siti Vi
To: belajar-excel@yahoogroups.com
Sent: Monday, April 12, 2010 5:22 PM
Subject: Re: [belajar-excel] delete range kembar
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
