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

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

w1.Cells(2, 3) = total

Next m

End Sub

运行完了excel的三个工作表的结果一样，问题在哪呢？代码如下：Sub 计算成绩()' 计算成绩 Macro'i为工作表行号i = 2total = 0i = i + 1LoopNext mEnd Sub在这个的代码中，累计这一行有问题，cells没有指定是哪个工作表的，运行的时候就会按活动工作表activesheet来计，这样每个工作表都是这么运行一遍，累计的都是当前activesheet的数，结果自然都是一样的。 '####################################################################################################### '使用说明: '本代码适用的 Excel 文件特征如下； '一个 Excel 文件... '####################################################################################################### '使用说明: '本代码涉及的文件有两类，一类是被合并的Ex...