|
>ありがとうございます。一応自動記録しましたが、このような
> Sheets("出荷明細_データベース)").Select
> ActiveWindow.SmallScroll Down:=-6
> ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="2"
> Range("A2:L300").Select
> Selection.Copy
> Sheets("加工").Select
> Range("A2").Select
> ActiveSheet.Paste
> Sheets("出荷明細_データベース)").Select
> ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="3"
> Range("A2:L300").Select
> Application.CutCopyMode = False
> Selection.Copy
> Sheets("加工").Select
> Range("A14").Select
> ActiveSheet.Paste
> Range("A24").Select
> ActiveSheet.Paste
> Sheets("出荷明細_データベース)").Select
> ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="4"
> Application.CutCopyMode = False
> Range("A2:L300").Select
> Selection.Copy
> Sheets("加工").Select
> Range("A34").Select
> ActiveSheet.Paste
> Range("A44").Select
> ActiveSheet.Paste
> ActiveWindow.SmallScroll Down:=12
> Range("A54").Select
> ActiveSheet.Paste
> ActiveWindow.SmallScroll Down:=12
> Range("A64").Select
> ActiveWindow.SmallScroll Down:=-57
すみませんが、枚数4の数字ない時は、そのままA2:L300のデータをコピーされます。これはちょっと困る。枚数の数字はない時飛ばして、ある数字に対して、コピーしたいです、いい方法教えていただきませんか?
|
|