Excel VBA質問箱 IV

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

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


28906 / 76738 ←次へ | 前へ→

【53122】Re:1項目で複数条件のデーター抽出
発言  ponpon  - 07/12/16(日) 11:50 -

引用なし
パスワード
   AdvancedFilterで抽出する例です。
データがシート1にあるとして、
Z列を作業列に使います。
項目数は6あると仮定しています。
シート2に書き出します。

Sub test()
  Application.ScreenUpdating = False
  With Sheets("Sheet1")
    '抽出する項目名と抽出文字をセット
    .Range("Z1:Z4").Value = Application.Transpose(Array(.Range("B1").Value, "A", "C", "E"))
    
    .Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
      .Range("Z1", .Range("Z65536").End(xlUp)), Unique:=False
    .Range("A2", .Range("A65536").End(xlUp)).Resize(, 6).Copy Sheets("Sheet2").Range("A1")                              '↑項目数
    .ShowAllData
    .Range("Z:Z").ClearContents
  End With
  Application.ScreenUpdating = True
End Sub

0 hits

【53118】1項目で複数条件のデーター抽出 07/12/16(日) 10:39 質問
【53119】Re:1項目で複数条件のデーター抽出 かみちゃん 07/12/16(日) 10:47 発言
【53124】Re:1項目で複数条件のデーター抽出 07/12/16(日) 12:23 お礼
【53120】Re:1項目で複数条件のデーター抽出 Who Me? 07/12/16(日) 10:56 回答
【53123】Re:1項目で複数条件のデーター抽出 07/12/16(日) 12:20 発言
【53127】Re:1項目で複数条件のデーター抽出 Who Me? 07/12/16(日) 13:57 発言
【53128】Re:1項目で複数条件のデーター抽出 07/12/16(日) 14:59 お礼
【53122】Re:1項目で複数条件のデーター抽出 ponpon 07/12/16(日) 11:50 発言
【53125】Re:1項目で複数条件のデーター抽出 07/12/16(日) 12:47 お礼

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