Mantep, it works, makasih STDEV(i) Terima Kasih, Akbar Jamaluddin Arsyad
________________________________ Dari: STDEV(i) <[email protected]> Kepada: [email protected] Terkirim: Sel, 28 Juni, 2011 17:00:02 Judul: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B 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
