|
度々すみません、やはりわからなくなってしまったので
アドバイスをください。
>MON = "2004/1/6"
>
>Set sche = Sheets("sheet1").Range("A2:D65536")
>
>myKey1 = CDate(MON)
>
>For r = 1 To 5
> sche.AutoFilter Field:=1, Criteria1:=cdate(myKey1 + r -1)
> sche.SpecialCells(xlCellTypeVisible).Copy
> Sheets("Sheet2").Range("C5").PasteSpecial Paste:=xlValues
>Next
>
>End Sub
やりたいことは、2004/1/6のデータのみコピペしたいんです。
でも、上記だと
2004/1/6のデータと、scheで範囲指定した内の日付が入っていない空白セル部分も
コピーされてしまいます。
そこで
>Criteria1:=CDate(myKey + r - 1), Criteria2:="<>"
と条件を追加したらいいのでは・・?と思ったんですが
出来ませんでした。
教えていただけますか?
|
|