GBKEE

¦^´_ 1# spermbank

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, Rng As Range
   
4.     i = 2
   
5.     With Sheets("sheet2")
   
6.         Do While .Cells(i, "a") <> ""
   
7.             Set Rng = Sheets("SHEET1").Range("A:A").Find(.Cells(i, "a"), lookat:=xlWhole)
   
8.             If Not Rng Is Nothing Then .Cells(i, "a").Resize(, 4) = Rng.Resize(, 4).Value
   
9.             i = i + 1
   
10.         Loop
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# spermbank

1. Option Explicit
   
2. Sub Ex_´M§ä()
   
3.     Dim i As Integer, Rng As Range
   
4.     Sheets("SHEET1").UsedRange.Offset(1).EntireRow.Hidden = True
   
5.     i = 2
   
6.     With Sheets("sheet2")
   
7.         Do While .Cells(i, "a") <> ""
   
8.             Set Rng = Sheets("SHEET1").Range("A:A").Find(.Cells(i, "a"), lookat:=xlWhole)
   
9.             If Not Rng Is Nothing Then Rng.EntireRow.Hidden = False
   
10.             i = i + 1
    
11.         Loop
    
12.     End With
    
13. End Sub
    
14. Sub ¥þ³¡Åã¥Ü_´M§ä()
    
15.     Sheets("SHEET1").UsedRange.EntireRow.Hidden = False
    
16. End Sub

½Æ»s¥N½X

1. Option Explicit
   
2. Sub Ex_¶i¶¥¿z¿ï()
   
3.     Dim ·Ç«h½d³ò As Range
   
4.      With Sheets("Sheet2")
   
5.        Set ·Ç«h½d³ò = .Range(.[A1], .[A1].End(xlDown))
   
6.     End With
   
7.     Sheets("Sheet1").Columns("A:D").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=·Ç«h½d³ò, Unique:=False
   
8. End Sub
   
9. Sub ¥þ³¡Åã¥Ü_¶i¶¥¿z¿ï()
   
10.     Sheets("Sheet1").Columns("A:D").AdvancedFilter Action:=xlFilterInPlace
    
11. End Sub

½Æ»s¥N½X