register313

¦^´_ 1# g93353

1. Sub XX()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For Each A In Range([A1], [A1].End(xlDown))
   
4.   d(A.Value) = ""
   
5. Next
   
6. Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)
   
7. Cells(1 + d.Count, "B") = "¦@" & d.Count & "¤H"
   
8. End Sub

½Æ»s¥N½X

register313

¦^´_ 3# g93353

1. Sub YY()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. n = Application.Match("Á`¼Æ", Columns("A"), 0)
   
4. For Each A In Range("A1:A" & n - 2)
   
5.   If A.Value <> "" Then d(A.Value) = ""
   
6. Next
   
7. If d.Count <> 0 Then Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)
   
8. Cells(n - 1, "A") = "¦@" & d.Count & "¤H"
   
9. Cells(1 + d.Count, "B") = "¦@" & d.Count & "¤H"
   
10. End Sub

½Æ»s¥N½X

register313

¦^´_ 5# g93353

Cells(1, "B").Resize(d.Count, 1) = Application.Transpose(d.keys)

d.Count                                         ¦r¨å¤ºÃöÁä¦rªº¼Æ¥Ø(¼Æ¦r)
d.keys                                           ¦r¨å¤ºªºÃöÁä¦r(¾î¦V°}¦C)
Cells(1, "B")=Range("A1")=[A1]     Àx¦s®æA1
Cells(1, "B").Resize(d.Count, 1)      ±NÀx¦s®æA1¤§½d³òÂX¤j¬°d.Count¦C1Äæ
Application.Transpose(d.keys)         ±N¦r¨å¤ºªºÃöÁä¦r(¾î¦V°}¦C)Âà¸m¬°ª½¦V°}¦C