Excel VBA質問箱 IV

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

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


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

28153 / 76736

←次へ　｜　前へ→


	【53889】オートフィルタで条件に合わない時の対処

ロン - 08/2/13(水) 19:44 -


	引用なし

	パスワード

『book2』のsheet1には
1行目は見出し行で、２行目以降にデータがあります。
これをある条件でオートフィルタしまして
条件に合うデータを『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

≪