Excel VBA質問箱 IV

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

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


27779 / 76732 ←次へ | 前へ→

【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 質問
【54272】Re:フィルタオプション かみちゃん 08/3/2(日) 17:29 発言
【54275】Re:フィルタオプション ウィル 08/3/2(日) 17:59 回答
【54277】Re:フィルタオプション Hirofumi 08/3/2(日) 19:10 回答
【54278】Re:フィルタオプション ウィル 08/3/2(日) 20:07 回答
【54279】Re:フィルタオプション Hirofumi 08/3/2(日) 20:48 回答
【54281】Re:フィルタオプション ウィル 08/3/2(日) 21:56 お礼

27779 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free