|
こんにちは。
提示コードを実行してもエラーはでないようですが、
どんなことをしたら、
どんなエラーがでるのでしょうか?
Sub test()
Dim 店舗コード
Dim myAry1 As Variant
Dim myAry2 As Variant
店舗コード = Sheets("実績").Range("E5").Value
myAry1 = Array("DATA", "DATA_month")
myAry2 = Array("A1", "N1")
For i = 0 To 1
With Sheets(myAry1(i))
.Cells.AutoFilter Field:=2, Criteria1:="=" & 店舗コード
.AutoFilter.Range.Copy 'すべての項目なら
.AutoFilterMode = False
End With
Sheets("temp").Range(myAry2(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
Next
End Sub
|
|