第3个回答 2012-07-27
Sub jj()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Worksheets
If sh.Name <> "Sheet101" Then
a = a + sh.Cells(1, 1)
End If
Next
Sheets("Sheet101").Cells(1, 1) = a
Application.ScreenUpdating = True
End Sub
按ALT+F11打开vba编辑器,插入模块,把上面的代码粘上,保存,运行就可以了