excel文档在附件里。
合计每一车次行与列，遇到麻烦问题。求助。列求和没有问题，但是行求和要出错。希望大家帮我看看。
Sheet1.Select
Dim r As Range, r2 As Range
For Each r In [T:T].SpecialCells(xlCellTypeConstants, 2)
If Len(r) Then
Set r2 = r.Offset(, -18).Resize(50000).Find("合计")
r2.Offset(, 4).Resize(1, 1) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"
r2.Offset(, 6).Resize(1, 1) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"
r2.Offset(, 8).Resize(1, 8) = "=sum(r" & r.Row + 2 & "c:r" & r2.Row - 1 & "c)"
r2.Offset(, 12).Resize(r2.Row - r.Row - 2, 1) = "=sum(rc[-4]:rc[-1])"
End If
Next
End Sub