Excel VBA質問箱 IV

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

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


70527 / 76734 ←次へ | 前へ→

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

1 hits

【10712】抽出について ギン 04/2/9(月) 20:24 質問
【10714】Re:抽出について ichinose 04/2/9(月) 21:07 回答
【10738】抽出について ギン 04/2/10(火) 19:26 質問
【10739】Re:抽出について ichinose 04/2/10(火) 21:33 発言
【10742】有難うございました。 ギン 04/2/11(水) 10:22 お礼

70527 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free