帮忙看下怎样用VBA对一列数据中的数字求和？？

a704019026

我的附件中Q列至Z列 的部分单元格不是数字是汉字，我想在下边的单元格内对Q列至Z列求和 ，怎么办？？我现在用的是 公式做的，怎样用VBA快速实现，对工作簿内的每个工作表进行这样的操作？？

错了哒哒哒

没明白你要做什么 是要求每列的和  还是说要删除中间的汉字

a704019026

错了哒哒哒 发表于 2016-6-11 16:32
没明白你要做什么 是要求每列的和  还是说要删除中间的汉字

不用删除中间的汉子 ，只求每一列的和就行

a704019026

错了哒哒哒 发表于 2016-6-11 16:32
没明白你要做什么 是要求每列的和  还是说要删除中间的汉字

帮我看下  只求每一列的和 就行

错了哒哒哒

a704019026 发表于 2016-6-11 16:36
不用删除中间的汉子 ，只求每一列的和就行

我看你那个处理前也求和了 所以说没太搞明白

a704019026

错了哒哒哒 发表于 2016-6-11 16:38
我看你那个处理前也求和了 所以说没太搞明白

啊 那是我 手动做的  ，处理前是没有求和的。我现在需要的是每一个工作表都这样，对列求和

a704019026

错了哒哒哒 发表于 2016-6-11 16:38
我看你那个处理前也求和了 所以说没太搞明白

我把附件已经改过了  帮我看下吧 谢谢呢

917067811

1. Option Explicit
   
2. 
   
3. Sub 统计()
   
4.     Dim sh
   
5.    
   
6.     For Each sh In Worksheets
   
7.         If sh.Name <> "新建汇总" Then
   
8.             sh.Activate
   
9.             Call ttt1
   
10.         
    
11.         End If
    
12.     Next
    
13.    
    
14. End Sub
    
15. 
    
16. 
    
17. 
    
18. 
    
19. Sub ttt1()
    
20.     Dim nrow&, ncolumn&, arr1(), i&, j&, brr()
    
21.    
    
22.     With ActiveSheet
    
23.         
    
24.         nrow = .Range("AA65536").End(xlUp).Row - 7
    
25.         ncolumn = .Range("XFD8").End(1).Column - 5
    
26.         
    
27.         arr1 = .Range("E8").Resize(nrow, ncolumn).Value
    
28.         
    
29.     End With
    
30.    
    
31.     ReDim brr(1 To ncolumn)
    
32.    
    
33.    
    
34.     For j = 1 To ncolumn
    
35.         For i = 1 To nrow
    
36.             If arr1(i, j) <> "" Then
    
37.             
    
38.                 brr(j) = brr(j) + arr1(i, j)
    
39.             End If
    
40.         Next i
    
41.    
    
42.     Next j
    
43.    
    
44.     ActiveSheet.Range("E8").Offset(nrow + 2, 0).Resize(1, ncolumn) = brr()
    
45.    
    
46.    
    
47.    
    
48. End Sub
    

复制代码

a704019026

917067811 发表于 2016-6-11 17:22

我测试了下 得不到结果呀  在帮我看下亲

a704019026

917067811 发表于 2016-6-11 17:22

在不呢 ？？你上边的代码不能用啊