Dim A 'セルの値を配列に格納 A = ActiveSheet.Range("A1").CurrentRegion
'配列をループ For i = UBound(A, 1) To 2 Step -1 Debug.Print i
'「If」で検索 If A(i, 6) = "Distribution (PCW; Sales value)" Then If A(i, 7) <= 3 Then Cells(i, 6).Resize(3, 1).Interior.Color = RGB(255, 0, 0)
End If End If Next ' ActiveSheet.Range("A1").CurrentRegion.Select Selection.AutoFilter Field:=6, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.SpecialCells(xlCellTypeVisible).Select Application.ScreenUpdating = True Selection.Delete 'これはしないで目で確認して手動でDELETEしても良いかも
