[µo°Ý] ½Ð°ÝÃö©ó¤£­«½Æ±ø¥ó¨Ã¨Ì§Ç¥HVLOOKUP¨Ì§Ç¦C¥X

starry1314

½Ð°Ý¦³¿ìªk¹F¨ì³oºØ¥\¯à¶Ü¡H
¦p¢ÑÄæ¡Ð¨C¤Ñ³£·|¦³¤j¶q¤£©T©w¥B­«½Æªº­È

¥i¦b¢Ï¢±¦Û°ÊŪ¨ú¢ÑÄ檺²Ä¤@­Ó­«½Æ­È
¡@¡@¢Ï¢²¦Û°ÊŪ¨ú¢ÑÄ檺²Ä¤G­Ó­«½Æ­È¡@
¡@¡@¢Ï¢³¦Û°ÊŪ¨ú¢ÑÄ檺²Ä¤T­Ó­«½Æ­È
¨Ì¦¹Ãþ±À¡C¡C¡C

½Ð°Ý¦³¿ìªk°µ¨ì³o¼Ë¶Ü¡H

¤U¸ü (13.71 KB)

2015-5-17 21:41

rouber590324

DEAR  SIR
¥ÎVBA¦p¤U  °õ¦æ§Y¥i.

Sub AA()
On Error Resume Next
Dim Myarr()
For Each A In Range([C1], [C65536].End(xlUp))
If WorksheetFunction.CountIf(Range([C1], [C65536].End(xlUp)), A) > 1 Then
    If WorksheetFunction.Match(A, Myarr, 0) = 0 Then
    ReDim Preserve Myarr(i)
    Set Myarr(i) = A
    i = i + 1
    End If
End If
Next
[A2].Resize(i, 1) = WorksheetFunction.Transpose(Myarr)
End Sub

starry1314

¦^´_ 2# rouber590324


    ·PÁÂÀ°¦£¡I¡I¡I¦¬¤U¤F¡ã