合计问题

myszh

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow, iCol As Integer
iRow = Target.Row
iCol = Target.Column
If Target.Row >= 6 And Target.Column >= 7 Then
Cells(iRow, 7) = Application.WorksheetFunction.Sum(Range(Cells(iRow, 8), Cells(iRow, 38)))


End If

End Sub

手动输入 合计没有问题

但是拖动数据 除第一行 的合计会跳 其他行都不动[em06][em06]