Scott090

¦^´_ 1# terrykyo520


    ¸Õ¸Õ¬Ý³o­Ó¬O§_²Å¦X»Ý­n

1. Sub Test0()
   
2.     Dim H&
   
3.     Range("A2").Select
   
4.     H = [A1].End(xlDown).Row
   
5.     Range("$A$1:$C$" & H).RemoveDuplicates Columns:=Array(2, 3), Header:=xlYes
   
6. End Sub

½Æ»s¥N½X

Scott090

¦^´_ 3# terrykyo520


   ³o­ÓÀ³¨S¦³ª©¥»ªº°Ï§O

1. Sub Test1()
   
2.     Dim i&, j&
   
3.     Dim aa, bb
   
4.    
   
5.     i = [A1].End(xlDown).Row
   
6.     aa = Range("A2:C" & i).Value
   
7.     For i = 1 To UBound(aa) - 1
   
8.         For j = i + 1 To UBound(aa)
   
9.             If aa(j, 2) = aa(i, 2) And aa(j, 3) = aa(i, 3) Then
   
10.                 aa(j, 1) = "": aa(j, 2) = "": aa(j, 3) = ""
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     ReDim bb(UBound(aa), 3)
    
15.     j = 0
    
16.     For i = 1 To UBound(aa)
    
17.         If aa(i, 1) <> "" Then
    
18.             j = j + 1
    
19.             bb(j, 1) = aa(i, 1): bb(j, 2) = aa(i, 2): bb(j, 3) = aa(i, 3)
    
20.         End If
    
21.     Next
    
22.     Range("A2").Resize(UBound(aa), 3).Clear
    
23.     Range("A2").Resize(UBound(bb), 3) = bb
    
24. 
    
25. End Sub

½Æ»s¥N½X

Scott090

¦^´_ 5# terrykyo520


    ½Ð¦C¤@´Á±æªºµ²ªGªí¬O¤°»ò
³o¼Ë¤ñ¸û¦n³B²z

Scott090

¦^´_ 5# terrykyo520


    µª®×¸ò§Aªº¥k¹Ï¤@¼Ë
test1.rar (9.04 KB)

¤U¸ü¦¸¼Æ: 11

2015-8-11 18:49

Scott090

¦^´_ 14# terrykyo520

½Ðª`·N°}¦C°_©l¦ì¸m ¬O 0 ÁÙ¬O 1
¥[ Option base 1 ¬O©w¸q°}¦C±q 1 ¶}©l

°Ñ·Ó 4#

Option base 1   
Sub Test1()
    Dim i&, j&
    Dim aa, bb
   
    i = [A1].End(xlDown).Row
    aa = Range("A2:C" & i).Value
   For i = 1 To UBound(aa) - 1
.........