|
初めまして。
マクロ初心者です。
「マクロで記録」を使ってマクロを作ったのですが、
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までではなく、その列全部を選択するにはどうすれば良いですか?
どうか、ご教授ください。よろしくお願いいたします。
|
|