1.VBA：在sheet的代码中输入如下代码即可 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X, Y, I, L, S As Integer For I = 1 To 1000 If Cells(I, 1) <> "" Then X = Cells(I, 1) Y = Cells(I, 2) For L = X To Y S = S + L Cells(I, 3) = S Next S = 0 End If Next End Sub
