![在此处输入图像描述](https://stackoom.com/link/aHR0cHM6Ly9pLnN0YWNrLmltZ3VyLmNvbS82a3M0NC5qcGc=)
Private Sub CommandButton1_Click()
For y = 7 To 8
Range("H" & y).Clear
If Range("I" & y) = "ACTIVE" Then
Range("H" & y).Clear
For i = 1 To 7
Range("H" & y) = Cells(y, 8) + Cells(y, i)
Next i
End If
Next y
End Sub
U can do with button i think its will be better
你可以用按钮做我认为它会更好