GBKEE

¦^´_ 1# dodo234


    ¤£À´VBA ­n¦h¬Ý»¡©ú

1. Option Explicit
   
2. Sub ¥¨¶°1()
   
3.     Dim i As Integer, Rng As Range
   
4.     Sheets("Sheet1").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
   
5.         CriteriaRange:=Range("A1:D2"), CopyToRange:=Range("A4:S4"), Unique:=False
   
6.     With Sheets("¬d¸ßªí")
   
7.         i = 5
   
8.         Do While .Cells(i, "a") <> ""
   
9.         Set Rng = Sheets("Sheet1").Columns("A:A").Find(.Cells(i, "a"), LookIn:=xlValues)
   
10.         .Hyperlinks.Add Anchor:=.Cells(i, "a"), Address:="", SubAddress:=Rng.Address(, , , 1, 1)
    
11.       '¶W³sµ² ¤]¥i¿ý»s¬Ý¬Ý
    
12.             i = i + 1
    
13.         Loop
    
14.     End With
    
15.         
    
16.         
    
17. End Sub
    
18. Sub ¥¨¶°2()
    
19. '
    
20. ' ¥¨¶°2 ¥¨¶°
    
21. '
    
22. '
    
23.     Range("A2:D2").Clear
    
24.     Range("A5:S39").Clear
    
25.     Range("C2").Select
    
26. End Sub

½Æ»s¥N½X