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

[­ì³Ð] §Q¥Î¦r¨å¥h°£­«½Æ¤º®e

[­ì³Ð] §Q¥Î¦r¨å¥h°£­«½Æ¤º®e

=IFERROR(UNIQUE($C$1:$C$10,ROW(A1)),"")
Capture.JPG
2013-4-11 18:49



code of UNIQUE function
  1. Function UNIQUE(source As Range, num As Integer)
  2.     Dim newArray, myArray As Variant
  3.     rows_num = source.Rows.Count
  4.     myArray = Range(source.Address).Value
  5.    
  6.     Set Dic = CreateObject("scripting.dictionary")
  7.     For i = 1 To rows_num
  8.         Dic((myArray(i, 1))) = ""
  9.     Next
  10.    
  11.     arr = Dic.Keys
  12.    
  13.     UNIQUE = arr(num - 1)
  14. End Function
½Æ»s¥N½X
ss

­×§ïCode ¥i¥H²¤¹LªÅ¥Õ
  1. Function UNIQUE(source As Range, num As Integer)
  2.     Dim newArray, myArray As Variant
  3.     rows_num = source.Rows.Count
  4.     myArray = Range(source.Address).Value
  5.    
  6.     Set Dic = CreateObject("scripting.dictionary")
  7.     For i = 1 To rows_num
  8.         Dic(CStr(myArray(i, 1))) = ""
  9.     Next
  10.    
  11.     arr = Dic.Keys
  12.    
  13.     UNIQUE = arr(num - 1)
  14. End Function
½Æ»s¥N½X
ss

TOP

¦^´_ 2# sunnyso
§ó·sCode ²¤¹LªÅ¥Õ
  1. Function UNIQUEp(source As Range, num As Integer)
  2.     Dim newArray, myArray As Variant
  3.     rows_num = source.Rows.Count
  4.     'myArray = Range(Cells(source.Row, source.Column), Cells(source.Row + rows_num - 1, source.Column)).Value
  5.     myArray = Range(source.Address).Value
  6.    
  7.     Set Dic = CreateObject("scripting.dictionary")
  8.     For i = 1 To rows_num
  9.     If myArray(i, 1) <> "" Then
  10.         Dic((myArray(i, 1))) = ""
  11.     End If
  12.     Next
  13.    
  14.     arr = Dic.Keys
  15.    
  16.     UNIQUEp = arr(num - 1)
  17. End Function
½Æ»s¥N½X
ss

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD