EXCEL中vba怎么应用整列

Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("1:100")) Is Nothing ThenExit SubEnd IfFor Each c In TargetIf c.Column = 2 And c.Row > 1 ThenCells(c.Row, 2) = Cells(c.Row - 1, 2) + Cells(c.Row, 2)ElseCells(c.Row, 2) = Cells(c.Row, 1) + Cells(c.Row, 2)End IfNextEnd Sub