|
シート名「あああ」にある表から、オートフィルターのオプションにて
シート名「カレンダー」にある、セル「C7」で条件を絞り
シート名「1」に貼り付ける
シート名「あああ」にある表から、オートフィルターのオプションにて
シート名「カレンダー」にある、セル「C8」で条件を絞り
シート名「2」に貼り付ける
シート名「あああ」にある表から、オートフィルターのオプションにて
シート名「カレンダー」にある、セル「C9」で条件を絞り
シート名「3」に貼り付ける
・・・・・・・・・・・・
といった処理を31回繰り返したいのですが
下記のように記述したら「リソース不足です」と表示されて
うまくいきません。
ループで記述できるのであれば
どのように記述すればよいのでしょうか?
初歩的な質問かもしれませんが教えてください。
宜しくお願いします
Sheets("あああ").Select
Selection.AutoFilter Field:=4, Criteria1:=Sheets("カレンダー").Range("C7").Value, Operator:=xlAnd
Range("A12:L12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("あああ").Select
Selection.AutoFilter Field:=4, Criteria1:=Sheets("カレンダー").Range("C8").Value, Operator:=xlAnd
Range("A12:L12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("あああ").Select
Selection.AutoFilter Field:=4, Criteria1:=Sheets("カレンダー").Range("C9").Value, Operator:=xlAnd
Range("A12:L12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("3").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
|
|