Coba copas warisan si mbah yang sdh saya modifikasi sedikit di Module VBE Sheet
Function LOUV(D As Range)
'--------------------------------------------------------------------- '
membuat daftar unique value berdasarkan range data ' coded by siti Vi /
feb2006, di bluewater /recoded: 1jul2007, di jkt
'--------------------------------------------------------------------- Dim
A(), X(), v, n As Integer, p As Integer, q As Integer, r As Integer ReDim A(1
To D.Cells.Count) For n = 1 To UBound(A): A(n) = D.Cells(n): Next n For n =
1 To UBound(A) - 1 For q = UBound(A) To n + 1 Step -1 p = q - 1
If A(p) > A(q) Then v = A(p): A(p) = A(q): A(q) = v
Else If A(p) = A(q) Then A(p) = "" 'modifikasi dari
HK (yang double hapus semua) A(q) = "" End If
'modifikasi dari HK (yang double hapus semua) End If Next q Next
n For n = 1 To UBound(A) If Not A(n) = "" Then r = r + 1: ReDim
Preserve X(1 To r): X(r) = A(n) End If Next n LOUV =
WorksheetFunction.Transpose(X)End Function
Salam,HK
From: "wxwxtit [email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Friday, 12 June 2015, 15:22
Subject: RE: [belajar-excel] Data yang sekali muncul
Terima kasih mas tio atas masukannya
Tp data yang di munculkan hanya 12
Jd data yg keluar data unik yg hanya muncul 1x dalam kolom itu
Sent from Samsung Mobile #yiv8236635205 #yiv8236635205 --
#yiv8236635205ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}#yiv8236635205 #yiv8236635205ygrp-mkp hr {border:1px solid
#d8d8d8;}#yiv8236635205 #yiv8236635205ygrp-mkp #yiv8236635205hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv8236635205 #yiv8236635205ygrp-mkp #yiv8236635205ads
{margin-bottom:10px;}#yiv8236635205 #yiv8236635205ygrp-mkp .yiv8236635205ad
{padding:0 0;}#yiv8236635205 #yiv8236635205ygrp-mkp .yiv8236635205ad p
{margin:0;}#yiv8236635205 #yiv8236635205ygrp-mkp .yiv8236635205ad a
{color:#0000ff;text-decoration:none;}#yiv8236635205 #yiv8236635205ygrp-sponsor
#yiv8236635205ygrp-lc {font-family:Arial;}#yiv8236635205
#yiv8236635205ygrp-sponsor #yiv8236635205ygrp-lc #yiv8236635205hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8236635205
#yiv8236635205ygrp-sponsor #yiv8236635205ygrp-lc .yiv8236635205ad
{margin-bottom:10px;padding:0 0;}#yiv8236635205 #yiv8236635205actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8236635205
#yiv8236635205activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8236635205
#yiv8236635205activity span {font-weight:700;}#yiv8236635205
#yiv8236635205activity span:first-child
{text-transform:uppercase;}#yiv8236635205 #yiv8236635205activity span a
{color:#5085b6;text-decoration:none;}#yiv8236635205 #yiv8236635205activity span
span {color:#ff7900;}#yiv8236635205 #yiv8236635205activity span
.yiv8236635205underline {text-decoration:underline;}#yiv8236635205
.yiv8236635205attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv8236635205 .yiv8236635205attach div a
{text-decoration:none;}#yiv8236635205 .yiv8236635205attach img
{border:none;padding-right:5px;}#yiv8236635205 .yiv8236635205attach label
{display:block;margin-bottom:5px;}#yiv8236635205 .yiv8236635205attach label a
{text-decoration:none;}#yiv8236635205 blockquote {margin:0 0 0
4px;}#yiv8236635205 .yiv8236635205bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv8236635205
.yiv8236635205bold a {text-decoration:none;}#yiv8236635205 dd.yiv8236635205last
p a {font-family:Verdana;font-weight:700;}#yiv8236635205 dd.yiv8236635205last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8236635205
dd.yiv8236635205last p span.yiv8236635205yshortcuts
{margin-right:0;}#yiv8236635205 div.yiv8236635205attach-table div div a
{text-decoration:none;}#yiv8236635205 div.yiv8236635205attach-table
{width:400px;}#yiv8236635205 div.yiv8236635205file-title a, #yiv8236635205
div.yiv8236635205file-title a:active, #yiv8236635205
div.yiv8236635205file-title a:hover, #yiv8236635205 div.yiv8236635205file-title
a:visited {text-decoration:none;}#yiv8236635205 div.yiv8236635205photo-title a,
#yiv8236635205 div.yiv8236635205photo-title a:active, #yiv8236635205
div.yiv8236635205photo-title a:hover, #yiv8236635205
div.yiv8236635205photo-title a:visited {text-decoration:none;}#yiv8236635205
div#yiv8236635205ygrp-mlmsg #yiv8236635205ygrp-msg p a
span.yiv8236635205yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8236635205
.yiv8236635205green {color:#628c2a;}#yiv8236635205 .yiv8236635205MsoNormal
{margin:0 0 0 0;}#yiv8236635205 o {font-size:0;}#yiv8236635205
#yiv8236635205photos div {float:left;width:72px;}#yiv8236635205
#yiv8236635205photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv8236635205
#yiv8236635205photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8236635205
#yiv8236635205reco-category {font-size:77%;}#yiv8236635205
#yiv8236635205reco-desc {font-size:77%;}#yiv8236635205 .yiv8236635205replbq
{margin:4px;}#yiv8236635205 #yiv8236635205ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv8236635205 #yiv8236635205ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8236635205
#yiv8236635205ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8236635205
#yiv8236635205ygrp-mlmsg select, #yiv8236635205 input, #yiv8236635205 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv8236635205
#yiv8236635205ygrp-mlmsg pre, #yiv8236635205 code {font:115%
monospace;}#yiv8236635205 #yiv8236635205ygrp-mlmsg *
{line-height:1.22em;}#yiv8236635205 #yiv8236635205ygrp-mlmsg #yiv8236635205logo
{padding-bottom:10px;}#yiv8236635205 #yiv8236635205ygrp-msg p a
{font-family:Verdana;}#yiv8236635205 #yiv8236635205ygrp-msg
p#yiv8236635205attach-count span {color:#1E66AE;font-weight:700;}#yiv8236635205
#yiv8236635205ygrp-reco #yiv8236635205reco-head
{color:#ff7900;font-weight:700;}#yiv8236635205 #yiv8236635205ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv8236635205 #yiv8236635205ygrp-sponsor
#yiv8236635205ov li a {font-size:130%;text-decoration:none;}#yiv8236635205
#yiv8236635205ygrp-sponsor #yiv8236635205ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv8236635205
#yiv8236635205ygrp-sponsor #yiv8236635205ov ul {margin:0;padding:0 0 0
8px;}#yiv8236635205 #yiv8236635205ygrp-text
{font-family:Georgia;}#yiv8236635205 #yiv8236635205ygrp-text p {margin:0 0 1em
0;}#yiv8236635205 #yiv8236635205ygrp-text tt {font-size:120%;}#yiv8236635205
#yiv8236635205ygrp-vital ul li:last-child {border-right:none
!important;}#yiv8236635205
