如何用VBA求一个工作簿特定位置数值的总和？

看见星光

niuhui2009

1. =sum('*'!B2)

复制代码

用不着VBA

看见星光

{:soso_e110:}那只是一个例子，我需要VBA的，函数我知道的啦。

grf1973

1. Sub tt()
   
2.     arr = Sheet3.[a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         xname = arr(i, 1): fs = 0
   
5.         For Each sh In Worksheets
   
6.             If sh.Name <> ActiveSheet.Name Then
   
7.                 Set xrng = sh.Range("a:a").Find(xname, lookat:=xlWhole)
   
8.                 If Not xrng Is Nothing Then fs = fs + xrng.Offset(0, 1).Value
   
9.             End If
   
10.         Next
    
11.         arr(i, 2) = fs
    
12.     Next
    
13.     Sheet3.[a1].CurrentRegion = arr
    
14. End Sub
    

复制代码

helplessness

能解释一下，每一个语句的用意么？

aoe1981

看来，此问题的难点是：作为盛放结果“和”的工作表只有一张，但是作为数据源的“加数”的工作表却有许多张……

aoe1981

grf1973 发表于 2013-5-23 13:42

这段代码会统计除了“和表”之外的所有“加数表”中同姓名的学生的成绩，太强大了……
只是当前活动工作表必须为“和表”……
我按f8单步运行时，把语文点成当前表了，结果就出错了……
呵呵，不过附件中的命令调用按钮在“和表”中，是不会发生类似问题的……

aoe1981

grf1973 发表于 2013-5-23 13:42

代码可以少一行：

1. Sub tt()
   
2.     arr = Sheet3.[a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         fs = 0
   
5.         For Each sh In Worksheets
   
6.             If sh.Name <> ActiveSheet.Name Then
   
7.                 Set xrng = sh.Range("a:a").Find(arr(i, 1), lookat:=xlWhole)
   
8.                 If Not xrng Is Nothing Then fs = fs + xrng.Offset(0, 1).Value
   
9.             End If
   
10.         Next
    
11.         arr(i, 2) = fs
    
12.     Next
    
13.     Sheet3.[a1].CurrentRegion = arr
    
14. End Sub

复制代码

就是说不用定义xname这个变量，不知为何这样做，是为了提高效率吗？