Excel VBA質問箱 IV

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

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


4678 / 76732 ←次へ | 前へ→

【77670】Re:オートフィルターについて
発言  β  - 15/11/21(土) 9:39 -

引用なし
パスワード
   ▼古 さん:

以下は参考コードとして。

SHeet1でオートフィルターをかけて、抽出があった場合、抽出されたものだけをSHeet2にコピーしています。
(抽出がなかった場合にこれを行うと全件コピーされるので、抽出有無をチェックしています)


Sub Test()
  With Sheets("Sheet1")
    .AutoFilterMode = False '念のため解除
    .Range("A8").AutoFilter '再設定
    .AutoFilter.Range.AutoFilter Field:=9, Criteria1:="<>4"
    '実際に抽出があった場合のみ
    If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
      'オートフィルター領域をコピペすると、抽出部分だけがコピーされる。
      .AutoFilter.Range.Copy Sheets("Sheet2").Range("A8")
    End If
  End With
End Sub

1 hits

【77655】オートフィルターについて 15/11/18(水) 14:22 質問[未読]
【77660】Re:オートフィルターについて γ 15/11/18(水) 20:48 発言[未読]
【77661】Re:オートフィルターについて 15/11/18(水) 22:51 お礼[未読]
【77665】Re:オートフィルターについて β 15/11/20(金) 9:01 発言[未読]
【77667】Re:オートフィルターについて 15/11/20(金) 23:42 お礼[未読]
【77668】Re:オートフィルターについて 15/11/21(土) 8:18 質問[未読]
【77669】Re:オートフィルターについて γ 15/11/21(土) 9:22 発言[未読]
【77671】Re:オートフィルターについて 15/11/21(土) 17:28 お礼[未読]
【77670】Re:オートフィルターについて β 15/11/21(土) 9:39 発言[未読]
【77672】Re:オートフィルターについて 15/11/21(土) 17:30 お礼[未読]

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