|
はじめまして、お世話になります。
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
何かいい手はありますでしょうか?
ご教授お願いいたします。
|
|