循环求和的疑惑

18651660635

疑惑。为什么下面一段代码中，ii循环第二次的时候，会记录第一次的sum，最终单元格的值变成了两次iI循环的和。请教下需要怎么改，才能第二次只对第二个ii求和？Sub 汇总()

Dim s2
Dim i
Dim s3
Dim ii
Dim sum
Range("M2:M3").Clear
For ii = 2 To [a1048568].End(xlUp).Row
   s2 = Sheets(2).Cells(ii, 1)
   s22 = Sheets(2).Cells(ii, 6)
    For i = 2 To 8
    s3 = Sheets(3).Cells(i, 1)


    s33 = Sheets(3).Cells(i, 2)

    fl = Sheets(3).Cells(i, 13)

   If s2 = s3 Then

'    If s2 = s3 And s22 = s33 And fl Like "*记账差异*" Then
   sum = Sheets(3).Cells(ii, 7) + sum
    End If
    Next
    Sheets(2).Cells(ii, 13) = sum
Next

End Sub

大灰狼1976

只要在外层循环（ii循环）开头加上sum=0就可以了。