Sheet2.Select
    Dim r As Range, r2 As Range
    For Each r In [a:a].SpecialCells(xlCellTypeConstants, 2)                                               ‘这个2代表的是什么意思？
        If Len(r) Then
            Set r2 = r.Offset(, 2).Resize(1000).Find("合计")
            r2.Offset(, 3).Resize(1, 7) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"     ’sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)这个sum的格式是什么？
        End If                                                                                                                                                                                        c是什么意思？
    Next                                                                                                                                                                                         r" & r.Row + 2 & "又是什么意思？
End Sub

还有个问题for each  next 运行的机理是什么？是i依次从1到N？