统计sheet1到sheet30中的a1中有多少个1，怎么写函数？

按alt+F11运行宏编辑器，新建一个模块，COPY以下代码：
Sub Macro1()
'
' Macro1 Macro
' 宏由 sascsy 录制，时间: 2007-12-29
'
' 快捷键: Ctrl+e
'
Dim cout As Integer
cout = 0
For Each wk In Worksheets
Dim thiscout As Integer
Dim MyString As String
MyString = wk.Range("A1").Value

thiscount = Len(MyString) - Len(WorksheetFunction.Substitute(MyString, "1", ""))
cout = cout + thiscount
Next
msgbox(cout)
End Sub
之后运行该宏即可得出结果

A1中就只有1和0吗?如果是这样的话可以试下=SUM(Sheet1:Sheet30!A1)

兄弟 说清楚点啊