Excelでマクロを繰り返したい。
Excelでマクロを記録したら以下のようになりました
このマクロを以下の条件で繰り返したいのですが。
Sub Macro1()
'-------------
'-----------------------
'
Sheets("Sheet1").Select
Selection.AutoFilter Field:=4, Criteria1:="=5*", Operator:=xlAnd, _
Criteria2:="<>5@*"
Range("A3:A302").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("A1").Select
Selection.AutoFilter Field:=4, Criteria1:="=6*", Operator:=xlAnd, _
Criteria2:="<>6@*"
Range("A3:A302").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Selection.AutoFilter Field:=4, Criteria1:="=7*", Operator:=xlAnd, _
Criteria2:="<>7@*"
Range("A3:A302").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A103").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("A1").Select
Selection.AutoFilter Field:=4, Criteria1:="=8*", Operator:=xlAnd, _
Criteria2:="<>8@*"
Range("A3:A302").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B103").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
条件＝ Field：は4～35位まで変動します
一連の動作をコピーして手作業で数字を変えてみたのですが
プロージャが大きすぎてエラーになってしまいます。
何か良い方法は無いでしょうか？。
