Excel VBA質問箱 IV

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

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


4693 / 76732 ←次へ | 前へ→

【77655】オートフィルターについて
質問   E-MAIL  - 15/11/18(水) 14:22 -

引用なし
パスワード
   初めまして。
マクロ初心者です。
「マクロで記録」を使ってマクロを作ったのですが、

Sub データ取得()
  
  Cells.Select
  Selection.Copy
  Sheets("抽出").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Range("I8").Select
  Application.CutCopyMode = False
  Selection.AutoFilter
  Selection.AutoFilter Field:=9, Criteria1:="=4", Operator:=xlAnd
  Range("A1032").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  Range(Selection, Selection.End(xlDown)).Select
  ActiveWindow.SmallScroll Down:=-33
  ActiveWindow.ScrollRow = 1
  Selection.SpecialCells(xlCellTypeVisible).Select
  Selection.Copy
  Application.CutCopyMode = False
  Selection.ClearContents
  Selection.AutoFilter Field:=9


”抽出”シートの8行目に項目が並んでいます。
そして、I列で、オートフィルタで「4以外」を抽出したのですが
時々4のデータが混在されてしまいます。

VBAでは”〜ではない”の場合、
Criteria1:="<>4"
とするようなので、修正してみたら、ますます多くの4のデータが
混在してしまいました。

どうしたら、4を除くデータだけを抽出できるのでしょうか。。

また、
Selection.AutoFilter Field:=9, Criteria1:="=4", Operator:=xlAnd
  Range("A1032").Select

A1032までではなく、その列全部を選択するにはどうすれば良いですか?

どうか、ご教授ください。よろしくお願いいたします。
0 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 お礼[未読]

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