Excel VBA質問箱 IV

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

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


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

532 / 76807

←次へ　｜　前へ→


	【81942】Re:シート間のデータコピーでエラー

マナ - 22/1/29(土) 14:52 -


	引用なし

	パスワード

▼ackkn さん：

>選択範囲の下に1行空白行が選択されます。

その通りです。
空白行を含めたくない場合は、
Intersectメソッドが使うとよいです。
ネットで調べ、トライしてみてください。

ですが、空白行が余分にあると何か問題ですか。
動作の違いを理解して使うことが前提ですが
結果が同じであれば、どちらでもよい
と考えることもできませんか。
さらに言えば、見出し行も含めてコピペでも
同じ結果ではありませんか。
その場合、Offsetしないという意味です。
こんな感じです。
r1.Columns("A:C").Copy
とか
r1.Columns("E:P").Copy

メリットは、抽出0件の場合が考慮不要なため
コードがシンプルになります。

また、Sheet2に空のD列の目的がわかりませんが、
D列データももコピーしても問題ないなら
ロジックを変更するとよいかもしれません。

１）Sheet1をSheet2に丸ごとコピー
２）Sheet1で、＜13日をフィルタ抽出・削除
３）Sheet1のフィルタ解除
４）Sheet2で、＞12日をフィルタ抽出・削除
５）Sheet2のフィルタ解除
６）必要ならSheet2のD列データ削除

5 hits

▼

【81927】シート間のデータコピーでエラー ackkn 22/1/26(水) 14:35