|
どなたか教えてください。
1.データシートから条件にあった行をワークシートにコピーしたい
2.上記以外のデータを除外シートにコピーしたい
のです。
1のデータ抽出でつまずいています
書いたコードは以下のものです。オートフィルターでは4つの条件は
無理なのでしょうか?
'データ数を求める
Sheets("データ").Activate
gyo = Sheets("データ").Range("a1").CurrentRegion.Rows.Count - 1
'データシートから必要なデータを抽出
Worksheets("データ").Range("A5").CurrentRegion.Select
(この下の行でエラーです)
Selection.AutoFilter Field:=4, Criteria2:="=250", Operator:=xlOr, Criteria2:="=280", _
Operator:=xlOr, Criteria2:="=350", Operator:=xlOr, Criteria2:="=500"
Selection.Copy
'ワークシートにとりあえずコピー
Set ws = Worksheets.Add
ws.Paste
ws.Name = "ワーク"
'見出し行コピー
Sheets("orion").Activate
Worksheets("orion").Rows("5:5").Select
Selection.Copy
Sheets("ワーク").Activate
ws.Range("A1").Select
ws.Paste
Application.CutCopyMode = False
Set ws = Nothing
Sheets("orion").AutoFilterMode = False
|
|