求助

840205910

能不能把多列数据同时装进字典做关键词

yjh_27

可以。用 & 连接

840205910

谢谢，比如用字典求和，怎么写法 Book1.rar (1.72 KB, 下载次数: 21)

2012-7-23 13:49 上传

点击文件名下载附件

HHAA

=SUMIF($A$2:$A$7,K2,$B$2:$B$7)+SUMIF($C$2:$C$7,K2,$D$2:$D$7)+SUMIF($E$2:$E$7,K2,$F$2:$F$7)+SUMIF(G$2:G$7,K2,H$2:H$7)
土办法!

840205910

HHAA 发表于 2012-7-23 14:25
=SUMIF($A$2:$A$7,K2,$B$2:$B$7)+SUMIF($C$2:$C$7,K2,$D$2:$D$7)+SUMIF($E$2:$E$7,K2,$F$2:$F$7)+SUMIF(G$2 ...

要求用字典，不考虑土办法，谢谢你

yjh_27

840205910 发表于 2012-7-23 13:50
谢谢，比如用字典求和，怎么写法

a列读完再读 c列。。。。即可。
不是同时

840205910

yjh_27 发表于 2012-7-23 14:28
a列读完再读 c列。。。。即可。
不是同时

怎么读法？老师。
希望老师给个代码

840205910

望各位老师指点

zhaogang1960

数据不大时可以用:
Sub Macro1()
    Dim arr, d As Object, i&, j%
    Set d = CreateObject("scripting.dictionary")
    arr = Range("A1").CurrentRegion
    For j = 1 To UBound(arr, 2) Step 2
        For i = 2 To UBound(arr)
            If Len(arr(i, j)) = 0 Then Exit For
            d(arr(i, j)) = d(arr(i, j)) + arr(i, j + 1)
        Next
    Next
    Range("K2:L65536").ClearContents
    Range("K2").Resize(d.Count) = Application.Transpose(d.keys)
    Range("l2").Resize(d.Count) = Application.Transpose(d.items)
End Sub

zhaogang1960

数据较多时应避免使用Transpose函数转置
Sub Macro2()
    Dim arr, brr(), d As Object, i&, j%, m&
    Set d = CreateObject("scripting.dictionary")
    arr = Range("A1").CurrentRegion
    ReDim brr(1 To UBound(arr) * UBound(arr, 2) / 2, 1 To 2)
    For j = 1 To UBound(arr, 2) Step 2
        For i = 2 To UBound(arr)
            If Len(arr(i, j)) = 0 Then Exit For
            If Not d.Exists(arr(i, j)) Then
                m = m + 1
                d(arr(i, j)) = m
                brr(m, 1) = arr(i, j)
                brr(m, 2) = arr(i, j + 1)
            Else
                brr(d(arr(i, j)), 2) = brr(d(arr(i, j)), 2) + arr(i, j + 1)
            End If
        Next
    Next
    Range("K2:L65536").ClearContents
    Range("K2").Resize(m, 2) = brr
End Sub