|
▼IROC さん:
ありがとうございます。
教えていただいた方法でできました。
そこでご存知でしたら再度教えて下さい。
定義をmykey1=MONにして、2=TUEと増やしていきます。
変数rにその1〜5まで入れてコピペを繰り返す、という記述をしたいです。
自分的には下記の通り考えたんですが、
どうにも
>Criteria1:=myKey(r)
ここがわかりません。
Sub IDO()
Dim MON As String
Dim myKey As Date
Dim sche As Range
Dim r As Long
MON = "2004/1/6"
TUE = "2004/1/7"
Set sche = Sheets("sheet1").Range("A2:D65536")
myKey1 = CDate(MON)
r = 1
For r = 1 To 5
sche.AutoFilter Field:=1, Criteria1:=myKey(r)
sche.SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("C5").PasteSpecial 'Paste:=xlValues
r = r + 1
Next
End Sub
|
|