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 質問
【64959】Re:データの抜き出しソートについて Hirofumi 10/3/30(火) 7:32 発言
【64960】Re:データの抜き出しソートについて teian 10/3/30(火) 8:50 回答
【64963】Re:データの抜き出しソートについて teian 10/3/30(火) 15:42 回答
【64969】Re:データの抜き出しソートについて ゆぅ 10/3/30(火) 23:21 お礼
【64970】Re:データの抜き出しソートについて teian 10/3/31(水) 12:22 回答
【64971】Re:データの抜き出しソートについて Hirofumi 10/3/31(水) 12:43 発言
【64981】Re:データの抜き出しソートについて teian 10/3/31(水) 15:43 回答
【64989】Re:データの抜き出しソートについて Hirofumi 10/3/31(水) 17:41 回答
【64990】Re:データの抜き出しソートについて teian 10/3/31(水) 17:51 発言
【64991】Re:データの抜き出しソートについて Hirofumi 10/3/31(水) 18:40 回答

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