| 
    
     |  | こんにちは。 番号だけを条件にするなら
 Sheet2のA1:A2を条件を指定する範囲として
 ======================================================================
 'Sheet1
 '  A    B    C    D     E    F
 '1 番号   名前   読み  電話番号  郵便番号  住所
 '2  -------データ------------------------------------
 '----------------------------------------------------------
 'Sheet2
 '  A    B    C    D     E    F
 '1 番号
 '2 101
 '3
 '4
 '5 番号   名前   読み  電話番号  郵便番号  住所
 '6
 '----------------------------------------------------------
 Sub test()
 With Sheets("Sheet2")
 Sheets("Sheet1").Cells(1 _
 ).CurrentRegion.AdvancedFilter xlFilterCopy, _
 .Range("A1:A2"), .Range("A5:F5")
 End With
 End Sub
 
 違ったらすいません。
 
 
 |  |