Re: ]] XL-mania [[ 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

   Dim i As Long, r As Long, p As Long

   

   Set A = Sheet1.Cells(1).CurrentRegion

   Set B = Sheet2.Cells(2, 1)

   B.CurrentRegion.Clear

   

   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)

   B.Parent.Activate

End Sub

2011/6/28 akbar arsyad <akbar_arsyad@yahoo.co.id>
>
> 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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 72
• New Polls 1

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___