|
朝出かける前で、あまり確認せずコードを提示したら大失敗。
ゴミあり、バグありのコードでした、失礼しました。
(必ず複数行ならいいのですが、纏めるものがなく1行のデータがあると
余計なものまで消しちまいました。)
訂正版をアップしておきます。
Dim oldRow As Long
Dim i As Long
With Worksheets(1)
oldRow = .Range("B" & .Rows.Count).End(xlUp).Row
For i = oldRow To 2 Step -1
If .Range("B" & i).Value <> .Range("B" & i - 1).Value Then
If oldRow > i 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
End If
oldRow = i - 1
End If
Next
End With
|
|