|
>各セル↑となってるデータの項目が同じものが連続している(★★等)なら日付の新しい&値段の高い値でまとめたいのです。
は、律儀にやるとすれば↓見たいな感じでしょうか。
Dim oldRow As Long, oldKey As Variant
Dim i As Long
With Worksheets(1)
oldRow = .Range("B" & .Rows.Count).End(xlUp).Row
oldKey = .Range("B" & oldRow).Value
For i = oldRow To 2 Step -1
If .Range("B" & i).Value <> .Range("B" & i - 1).Value Then
.Range("A" & i).Value = _
WorksheetFunction.Max(.Range("A" & i & ":A" & oldRow))
.Range("C" & i).Value = _
WorksheetFunction.Max(.Range("C" & i & ":C" & oldRow))
.Rows(i + 1 & ":" & oldRow).Delete xlShiftUp
oldRow = i - 1
End If
Next
End With
Sortをどこに登場させたらいいのかは知りません。
|
|