ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

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

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
ù

TOP

¦^´_ 2# rouber590324


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

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD