Excel VBA質問箱 IV

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

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


28149 / 76732 ←次へ | 前へ→

【53889】オートフィルタで条件に合わない時の対処
質問  ロン  - 08/2/13(水) 19:44 -

引用なし
パスワード
   『book2』のsheet1には
1行目は見出し行で、2行目以降にデータがあります。
これをある条件でオートフィルタしまして
条件に合うデータを『book1』のsheet1に
見出し行を除いて可視セルをコピーするマクロを組みました。
(下のマクロです)
このマクロですとデータがない時に
2行目以降の全データがコピーされてしまいます。
なぜこのようになるのか分かりません・・・。
どのように対処(回避)すればよろしいですか?
どうか宜しくお願いします。

Sub test()
 ’book2は既にオートフィルタされているものとします。
 Windows("book2.xls").Activate
 Set R = Worksheets("sheet1").Range("a1").CurrentRegion
 With R
  .Resize(.Rows.Count - 1).Offset(1).Copy
  Windows("book1.xls").Activate
  Worksheets("sheet1").Range("a1").PasteSpecial Paste:=xlPasteValues
 End With
End Sub

0 hits

【53889】オートフィルタで条件に合わない時の対処 ロン 08/2/13(水) 19:44 質問
【53890】Re:オートフィルタで条件に合わない時の対処 じゅんじゅん 08/2/13(水) 20:20 発言
【53914】Re:オートフィルタで条件に合わない時の対処 ロン 08/2/14(木) 18:41 お礼

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