Sub test()
Dim i, j, ar, s
r = ActiveSheet.UsedRange.Rows.Count
l = ActiveSheet.UsedRange.Columns.Count
ar = Range(Cells(3, 1), Cells(r, l)).Value
For i = 2 To UBound(ar)
For j = 2 To UBound(ar, 2)
s = s + ar(i, j)
If ar(1, j) = "周和" Then
s = s - ar(i, j)
ar(i, j) = ""
If s <> 0 Then
ar(i, j) = s
s = 0
End If
End If
Next
Next
Range("a3").Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub