Excel VBA質問箱 IV

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

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


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

17238 / 76738

←次へ　｜　前へ→


	【64957】データの抜き出しソートについて

ゆぅ - 10/3/29(月) 23:28 -


	引用なし

	パスワード

はじめまして、お世話になります。
VBAを最近始めてデータの抜き出しについて悩んでます。

日付　項目　値段
3/14　★　　110
3/13　★　　115
3/12　☆　　108
3/11　☆　　100
3/10　★　　223
3/9　 ★　　242
3/8　 ★　　265

各セル↑となってるデータの項目が同じものが連続している（★★等）なら日付の新しい＆値段の高い値でまとめたいのです。
こんな感じに↓

日付　項目　値段
3/14　★　　115
3/12　☆　　108
3/10　★　　265

For文使ってデータの数だけループ、下記のようなIF文判定して行消しと作ってみましたが行消すところが固まったように遅いのです。

xpos_check、ypos_check：1つ目のデータ位置
xpos_check2、ypos_check2：2つ目のデータ位置

If (Cells(xpos_check, ypos_check) = "★") And (Cells(xpos_check2, ypos_check2) = "★") Then

　　 Cells(xpos_check, ypos_check + 1).Value = Cells(xpos_check2, ypos_check2 + 1).Value
　　Cells(xpos_check, ypos_check + 2).Value = Cells(xpos_check2, ypos_check2 + 2).Value
　　　　
　　 Range(Cells(xpos_check2, ypos_DATE), Cells(xpos_check2, ypos_DATE)).Select
　　 Selection.Delete Shift:=xlUp

何かいい手はありますでしょうか？
ご教授お願いいたします。

0 hits

▼

【64957】データの抜き出しソートについて ゆぅ 10/3/29(月) 23:28

≪