想请教大神们能不能用VBA的方式，快速得出每日分别汇总是多少的

mind1238

想请教大神们能不能用VBA的方式，快速得出每日分别汇总是多少的
因为数据量具大
我现在只能是一个一个的数求和然后再手工填，真的太痛苦了

lsc900707

收入表第一列没有合并单元格更方便！

mind1238

lsc900707 发表于 2018-9-26 12:29
收入表第一列没有合并单元格更方便！

可以把合并单元格取消掉的

mind1238

朱荣兴 发表于 2018-9-26 12:20
办法肯定有，但你得具体说明你的需求

就是按首列的日期然后提取当日的营业额，分别汇总由什么途径收入的我

EiffelXu22

应该是说不要合并单元格，每行日期都留着，然后直接数据透视。很快的，不需要VBA。

grf1973

366行出现非数值型，虽然可以用Val处理掉，但还是应尽量避免此类情况。

1. Sub 汇总()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheets(1).Range("a1:dq" & Sheets(1).[b65536].End(3).Row)
   
4.     ReDim brr(1 To UBound(arr), 1 To 7)
   
5.     For i = 5 To UBound(arr)
   
6.         If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
   
7.         x = arr(i, 1)
   
8.         If Not d.exists(x) Then
   
9.             n = n + 1
   
10.             d(x) = n
    
11.             brr(n, 1) = x
    
12.         End If
    
13.         p = d(x)
    
14.         For j = 2 To 7
    
15.             brr(p, j) = brr(p, j) + Val(arr(i, j + 114))
    
16.         Next
    
17.     Next
    
18.     [a2:i10000].ClearContents
    
19.     [a2].Resize(n, 7) = brr
    
20. End Sub
    

复制代码

xiangbaoan

……仅供参考……

jiangxiaoyun

合并单元格首个单元格用t变量记录一下在数组中的位置，再用字典求和就可以了。
不难处理。