结果 是-2017036
Sub 宏1()k = 0For i = 1 To 1004Cells(i, 1) = i * 2 - 1Cells(i, 2) = i * 2Cells(i, 3) = (i * 2 - 1) * (i * 2 - 1) - (i * 2) * (i * 2)Cells(i, 4) = k + Cells(i, 3)k = k + Cells(i, 3)NextEnd Sub