Excel VBA質問箱 IV

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

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


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

57700 / 76738

←次へ　｜　前へ→


	【23772】Re:今日よりも過去の日付を削除する

ちゃっぴ - 05/4/3(日) 23:00 -


	引用なし

	パスワード

>もし、今日よりも過去の日付が存在したならば、
>その行を削除して上へ詰めたいとき、マクロはどうしたらよいでしょうか。

Sortをうまく使いこなしましょう。

まず、空いている列(作業列)に現在の行番号を書いておきます。

次に日付順にSortします。
そうすれば、今日以前のDataが存在した場合、
一箇所に集まりますのでそれをごそっと削除。
(元の順番に戻す必要がないのであれば、
Clear, ClearContentsを使うほうがお勧めです。)

最後に作業列でSortして、元の並びに戻して、
作業列のDataを消去してやれば、完成です。

AutoFilterを使った場合、内部でやっていることは
Union使って行を連結させているわけなので、速度は遅いですよ。

1 hits

▼

【23763】今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/3(日) 16:25