Excel総合相談所 131

[0181 名無しさん＠そうだ選挙にいこう 2018/04/29(日) 22:41:14.17]

>>180
Sub FOO()
If Not (Cells(1, 8) = "集計" Or Cells(1, 8) = "総計") Then
Rows("1:1").Delete Shift:=xlUp
End If
End Sub