Re: ]] XL-mania [[ Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

Case yang bagus tuk menjajal Scripting Dictionary,

coba,

Sub koempoelkeun()

'anton suryadi, 3/Juli/2011

    x = Timer

    With CreateObject("Scripting.Dictionary")

        For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))

            k = c.Value: i = c.Offset(0, 1).Value

            If k <> "" Then

                If Not .Exists(k) Then

                    .Add k, i

                Else: .Item(k) = .Item(k) & " " & i

                End If

            End If

        Next

        k = .keys: i = .items

        For c = 0 To UBound(k)

            Sheet2.Cells(c + 1, 1) = k(c)

            Sheet2.Cells(c + 1, 2) = i(c)

        Next

    End With

    MsgBox Format(Timer - x, "0.000")

End Sub

File terlampir

>semoga bermanfaat

---

From: akbar arsyad <akbar_arsyad@yahoo.co.id>
To: Excel gaga <XL-mania@yahoogroups.com>
Sent: Tuesday, June 28, 2011 4:25 PM
Subject: ]] XL-mania [[ 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