用函数出现一些问题，VBA能否解决。谢谢~！

挟香公子

在函数板块发出了求助，有两位老师给出了解决方法，使用过程中发现在庞大的数据量中就出现了问题，超过100以上的单元格区域查找运算就会返回0，而且编辑好公式回车运算过程时间超长，造成电脑假死情况。不知道能不能有更优的函数解决方法，或者可以用VBA解决。

麻烦各位老师！

函数版区求助帖：http://club.excelhome.net/forum. ... ;page=1#pid10214321

明细表 (1).rar (8.31 KB, 下载次数: 6)

2020-1-16 23:21 上传

点击文件名下载附件

挟香公子

比如要处理十年的数据，汇总成每个月的数据。就没办法完成了！

13583313392

ok，试一下

sj15627581616

函数区已回复，楼主自己去看

yes363001640

这样么？111111111

wodewan

Sub test()
Dim arr, br, i, d As Object, str, lr, m
Set d = CreateObject("scripting.dictionary")
arr = Sheets("账目").Range("a1").CurrentRegion
ReDim br(1 To UBound(arr), 1 To 4)

For i = 2 To UBound(arr)
    str = Format(arr(i, 1), "yyyy-mm")
    lr = arr(i, 2) - arr(i, 3)
    If Not d.exists(str) Then
        m = m + 1
        br(m, 1) = str: br(m, 2) = lr: br(m, 4) = 1
        d(str) = m
    Else
        br(d(str), 2) = br(d(str), 2) + lr
        br(d(str), 4) = br(d(str), 4) + 1
        br(d(str), 3) = br(d(str), 2) / br(d(str), 4)
    End If
Next

With Sheets("汇总")
    .UsedRange.Offset(1, 0).ClearContents
    .Range("a2").Resize(m, 3) = br
End With

End Sub

microyip

SQL的Group By一下就完了

microyip

1. Private clsSQL As ClassSQL
   
2. 
   
3. Sub 数据汇集()
   
4.     Dim vData As Variant, sSQL As String
   
5.    
   
6.     If clsSQL Is Nothing Then Set clsSQL = New ClassSQL
   
7.     With Sheet1
   
8.         sSQL = "Select Format([日期],'YYYY-M') As 年月日期,Sum([销售额])-Sum([进货额]) As 净利润,Count([日期]) As 次数 " & _
   
9.             "From [账目$] Group By Format([日期],'YYYY-M')"
   
10.         sSQL = "Select [年月日期] As 日期,[净利润],[净利润]/[次数] As 平均日利润 From (" & sSQL & ")"
    
11.         vData = clsSQL.GetDataBySQL(SQL:=sSQL, SqlType:="Excel", FileOrServer:=ThisWorkbook.FullName, OutputTitle:=True)
    
12.         .UsedRange.ClearContents
    
13.         .[A1:C3].Resize(UBound(vData)) = vData
    
14.     End With
    
15. End Sub

复制代码

ClassSQL类可以参考使用http://club.excelhome.net/thread-1517858-1-1.html 用类做自定义SQL读取函数及数组转置函数

microyip

附上附件以供参考

挟香公子

yes363001640 发表于 2020-1-17 10:10
这样么？111111111

感谢！代码有些问题，
If Month(arr(i, 1)) = Month(brr(j, 1)) Then
应该匹配的是年月，这里只匹配了月份，导致所有年份同一个月的相加了。