Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70531 / 76738

←次へ　｜　前へ→


	【10712】抽出について

ギン - 04/2/9(月) 20:24 -


	引用なし

	パスワード

またまた質問させて下さい。
抽出先のワークシートに抽出条件と位置を指定して
データベースのワークシートから抽出しようとして
まず記録マクロを行いました。（フィルタオプション）

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の指定の仕方が悪いのでしょうか？
長々書いてしまい申し訳ありませんが宜しく御願い致します。

0 hits

▼

【10712】抽出について ギン 04/2/9(月) 20:24

≪