| |
1.毎日1回、新しい情報を最後尾の行から入力しています。
2.同じコード番号があれば、直近の日付のコード番号の下の行へ
並び替えをさせます。
3.最新の日付の利益ー直近の日付の利益＞0なら、最新の日付の
行の文字を赤く染めます。
これらを下記のステートメントで処理しています。
これからがお願いです。
最新の日付の利益ー直近の日付の利益＜0なら
直近の日付のものを含めて、以前のコート番号の行を全て、
削除したい(同じコード番号のものだけです)。
コード番号はA列、利益はH列に入力されています。
例
1100(A列)……100(H列)
1200……………200
1200……………250
1200……………150
1300……………150
1300……………200
となった場合、
1100……………100
1200……………150
1300……………150
1300……………200
という具合にしたいのです。
宜しくお願いいたします。
Sub 削除する()
Dim lastgyou As Integer
Dim i As Integer
Dim j As Integer
Dim atai As Integer
Dim zr As Integer
lastgyou = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastgyou - 1
atai = Cells(i, 2).Value
For j = i + 1 To lastgyou
If atai = Cells(j, 2).Value Then
If j <> i + 1 Then
Rows(j).Cut
Rows(i + 1).Insert Shift:=xlDown
End If
zr = Cells(i + 1, 8).Value - Cells(i, 8).Value
If zr > 0 Then
Rows(i + 1).Font.ColorIndex = 3
End If
i = i + 1
End If
Next j
Next i
End Sub
|
|
本山中
- 12/5/30(水) 10:29 -
