|
またまた質問させて下さい。
抽出先のワークシートに抽出条件と位置を指定して
データベースのワークシートから抽出しようとして
まず記録マクロを行いました。(フィルタオプション)
Sub Macro1()
Sheets("PKG名無しリスト").Select’抽出先ワークシート
Range("A5:C100").Delete’前の抽出データを削除
Sheets("次年度").Range("A1:V861").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("A4:C4"), _ Unique:=True
End Sub
とするとちゃんと抽出してくれます。
しかし、データ行が変わるので次のように書き換えましたがエラーになってしまいます。
Sub test()
Dim rEnd As Integer
Dim cEnd As Integer
Sheets("次年度").Activate
rEnd = Cells(65536, 1).End(xlUp).Row
cEnd = Cells(1, 1).End(xlToRight).Column
Sheets("PKG名無しリスト").Select
Range("A5:C100").Delete
Sheets("次年度").Range(Cells(r, 1), Cells(rEnd, cEnd)).AdvancedFilter _ Action:=xlFilterCopy, CriteriaRange:=Range("A1:C2"), _
CopyToRange:=Range("A4:C4"), Unique:=True
End Sub
rengeの指定の仕方が悪いのでしょうか?
長々書いてしまい申し訳ありませんが宜しく御願い致します。
|
|