Excel総合相談所 131

[0189 名無しさん＠そうだ選挙にいこう 2018/04/30(月) 06:50:37.45]

訂正
For i = Cells(Rows.Count,8).End(xlUp).Row To 2 Step -1
If Not (Cells(i, 8) ="集計" Or Cells(1, 8) ="総計") Then
Rows(i).Delete Shift:=xlUp
Next i