|
asakiさん早速ありがとうございます。
説明が間違っていた所がありました、項目の初めに番号がありました。
従って
番号 名前 読み 電話番号 郵便番号 住所 の6項目でした
それで、 Cells(.Rows.Count, 5) の 5 を 6 にして
名前ではなく、番号で検索して見ましたが、大量に表示しました。(該当以外も表示した)
名前で検索するには何処を変更すればいいでしょうか?
また、終わってから表示したデータをクリアするにはどうしたらいいでしょう?
よろしくお願いします。
Sub test()
Dim rng As Range
With Worksheets("Sheet1")
Set rng = .Range("A2", .Cells(.Rows.Count, 6).End(xlUp))
End With
With Worksheets("Sheet2")
.Range("A5", .Cells(.Rows.Count, 6).End(xlUp)).ClearContents
rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"A2:A3"), CopyToRange:=.Range("A5"), Unique:=False
End With
Set rng = Nothing
End Sub
|
|