VBA运行后，为什么excel的三个工作表结果一样？

运行完了excel的三个工作表的结果一样，问题在哪呢？

代码如下：

Sub 计算成绩()

' 计算成绩 Macro

'i为工作表行号

Dim i, m, total As Integer

Dim w1 As Worksheet

For m = 1 To Worksheets.count

Set w1 = Worksheets(m)

i = 2

total = 0

Do While w1.Cells(i, 2) <> ""

total = total + Cells(i, 2)

i = i + 1

Loop

w1.Cells(2, 3) = total

Next m

End Sub

在这个的代码中，累计这一行有问题，

total=total+cells(i,2)

cells没有指定是哪个工作表的，运行的时候就会按活动工作表activesheet来计，这样每个工作表都是这么运行一遍，累计的都是当前activesheet的数，结果自然都是一样的。有两种改法：

1.指定累计工作表

total=total+w1.cells(i,2)

2.变更活动工作表，添加一行代码

w1.activate

'＝＝代码，已将可修改的做加粗显示＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub 计算成绩()

' 计算成绩 Macro

'i为工作表行号

Dim i As Integer, m As Integer, total As Integer

Dim w1 As Worksheet

For m = 1 To Worksheets.count

Set w1 = Worksheets(m)

w1.Activate

i = 2

total = 0

Do While w1.Cells(i, 2) <> ""

total = total + w1.Cells(i, 2)

i = i + 1

Loop

w1.Cells(2, 3) = total

Next m

End Sub