VBA 字典 如何将加总改成平均？？？

dogfire4169

请问大神， 本小白大概知道加总如何搞了！！想要改求平均，要如何改

现在就是无法把每个重复次数带进，总不能些上 除以4 吧！！！重复次数会依采样次数而不同！！ 谢谢大家！！


Sub sss()
    arr = [a2].CurrentRegion
    Set d1 = CreateObject("scripting.dictionary")
    Set d2 = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d1(arr(i, 1) & " " & arr(i, 2)) = d1(arr(i, 1) & " " & arr(i, 2)) + arr(i, 3)
        d2(arr(i, 1) & " " & arr(i, 2)) = d2(arr(i, 1) & " " & arr(i, 2)) + arr(i, 4)
    Next
    i = 0
    For Each k In d1.Keys
        i = i + 1
        
        Cells(i, 7).Resize(, 2) = Split(k)
        Cells(i, 9) = d1(k)
        Cells(i, 10) = d2(k)
    Next
End Sub

taller

shiruiqiang

清风竹-

请看附件。

dogfire4169

多谢大家，原来再加个变量，再变量+1 ，再循环既可！！！

目前我致少看到一个正解！！！多谢大家的回复！！！在此感谢大家！！就不一一回复了！！

给回复的各位大大送上无比的谢意！！！

tanglf188

字典Items再加一列计数就可以了

求和、平均合起来代码如下：

demonimissyou

用sql也可以实现
Sub XX()
Dim I, Conne, rst, pathstr, strConne, strSQL
Set Conne = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
pathstr = ThisWorkbook.FullName
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & pathstr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
Conne.Open strConn
strSQL = "select 日期,小时,Avg(A) as 平均值A,Avg(B) as 平均值B from [SHEET1$] group by 日期,小时"
    Set rst = Conne.Execute(strSQL)
     Sheet2.UsedRange.Clear
    For I = 0 To rst.fields.Count - 1
        Sheet2.Cells(1, I + 1) = rst.fields(I).Name
    Next
    Sheet2.[A2].CopyFromRecordset rst
rst.Close
Conne.Close
Set rst = Nothing
Set Conne = Nothing
Sheet2.[A2].EntireRow.Delete
End Sub

dogfire4169

demonimissyou 发表于 2023-3-9 10:24
用sql也可以实现
Sub XX()
Dim I, Conne, rst, pathstr, strConne, strSQL

改天再试试SQL,我自己也搞了一个excel 连access SQL 在公司玩玩,还没有玩过SQL的计算,THANK YOU