a.Resize(1, a.Columns.Count).Copy b(0, 1)dapat menimbulkan error 1004 , jika
isi sheet2 tak kosongsaya koreksi ya : a.Resize(1, a.Columns.Count).Copy b(1,
1)saya sudah test menjalankan makro berkal-kali ( ada lebih 5 kali ) , tak
muncul error 1004 Semoga dapat diterima , Miss CT
To: [email protected]
From: [email protected]
Date: Tue, 28 Jun 2011 19:25:26 +0700
Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung
cellnya di kolom B
Perbaikan makro untuk menghadapi keadaan tabeldata hewan yg senama tidak
berurutan
Sub Anjing()
' siti Vi / 28 jun 2011 Dim a As Range, b As Range, i As Long, r As Long,
p As Long
Set a = Sheet1.Cells(1).CurrentRegion Set b = Sheet2.Cells(2, 1)
For i = 2 To a.Rows.Count Set b = b.CurrentRegion
Set b = b.Resize(b.Rows.Count, 1) If WorksheetFunction.CountIf(b,
a(i, 1)) = 0 Then
r = r + 1 b(r, 1) = a(i, 1): b(r, 2) = a(i, 2) Else
p = WorksheetFunction.Match(a(i, 1), b, 0) b(p, 2) = b(p, 2) &
" " & a(i, 2)
End If Next a.Resize(1, a.Columns.Count).Copy b(0, 1)
End Sub
2011/6/28 STDEV(i) <[email protected]>
sebelum ada komplain.., sebaiknya siti mengatakan sekarang:
bahwa makro tsb berlaku dengan syarat:
** nama Hewan yg SAMA harus sudah berdekatan/berurutan (sorted) seperti
tabel contoh yg diajukan.
Jika keadaan records pada tabel di sheet1 bisa sembarang urutan; sehingga
nama hewan yg SAMA tidak berdekatan, maka di dalam loop perlu satu baris
perintah mencari index_baris untuk hewan yg sudah ada ditabel hasil, agar
penambahan 'nama makanan' di kolom 2 (Sheet2) bisa tepat pada baris
'hewan' yg dituju.
~siti~
2011/6/28 STDEV(i) <[email protected]>
Sub Anjing() ' siti Vi / 28 jun 2011
Dim a As Range, b As Range, i As Long, r As Long Set a =
Sheet1.Cells(1).CurrentRegion
Set b = Sheet2.Cells(2, 1)
For i = 2 To a.Rows.Count
Set b = b.CurrentRegion Set b = b.Resize(b.Rows.Count, 1)
If WorksheetFunction.CountIf(b, a(i, 1)) = 0 Then r = r + 1: b(r,
1) = a(i, 1): b(r, 2) = a(i, 2)
Else
b(r, 2) = b(r, 2) & " " & a(i, 2) End If
Next a.Resize(1, a.Columns.Count).Copy b(0, 1)
End Sub
2011/6/28 akbar arsyad <[email protected]>
>
> Maaf mod, lampirannya ketinggalan
>
> Terima Kasih,
> Akbar Jamaluddin Arsyad
>
> ----- Pesan Diteruskan ----
> Dari: akbar arsyad <[email protected]>
> Kepada: Excel gogo <[email protected]>
> Terkirim: Sel, 28 Juni, 2011 16:21:11
> Judul: Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B
>
> Dear all
> Saya minta tolong, saya punya permasalahan dimana saya mempunyai tabel
> seperti dibawah ini
> Hewan Makanannya
> Kucing Daging dan
> Kucing Ikan
> Anjing Tulang, Ayam,
> Anjing dan Daging
> Kelinci Rumput
> Kuda Rumput, jagung,
> Kuda jerami, dan
> Kuda biji, bijian
> Sapi Jagung
> Saya ingin membuat sheet baru yang menghapus nama hewan yang sama, misal
> kucing dibaris kedua dan ketiga, menjadi hanya satu barsi saja dengan
> makanannya hanya satu baris saja yang merupakan gabungan dari cell "daging
> dan" serta cell "Ikan"
>
> Terima Kasih,
> Akbar Jamaluddin Arsyad
