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
