|
こんにちは。
番号だけを条件にするなら
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
違ったらすいません。
|
|