Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27783 / 76736

←次へ　｜　前へ→


	【54270】フィルタオプション

ウィル - 08/3/2(日) 17:20 -


	引用なし

	パスワード

始めまして。
やりたいことは、複数の条件を指定して、別シートに抽出したいです。

自分なりにフィルタを使用して作成してみたのですが、
もう少し簡単にできないでしょうか？

Sub Macro11()
　　Range("B9:H800").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
　　　　"B1:F2"), CopyToRange:=Range("O1"), Unique:=False
　　Columns("O:U").Select
　　Selection.Cut
　　Sheets("Sheet1").Select
　　Cells.Select
　　Application.CutCopyMode = False
　　Selection.Delete Shift:=xlUp
　　Range("A1").Select
　　Sheets("リスト").Select
　　Selection.Cut
　　Sheets("Sheet1").Select
　　ActiveSheet.Paste
　　Sheets("リスト").Select
　　
　　Range("B2").Select
　　Sheets("Sheet1").Select
　　Range("A2").Select
End Sub

宜しくお願いします。

0 hits

▼

【54270】フィルタオプション ウィル 08/3/2(日) 17:20

≪