将普通表变成交叉表

VBA字典操作技巧

最新推荐文章于 2022-05-09 20:44:50 发布

转载最新推荐文章于 2022-05-09 20:44:50 发布 · 392 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://club.excelhome.net/thread-1214701-1-1.html

文章标签：

#数据库

VBA 同时被 2 个专栏收录

2 篇文章

订阅专栏

Excel

2 篇文章

订阅专栏

本文详细介绍了一种使用VBA进行字典操作的方法，通过遍历工作表区域，利用字典对象来处理数据，实现数据的高效管理和运算。具体包括如何创建字典，将工作表数据映射到字典中，以及进行数据聚合等高级操作。

Sub zz()
    Dim d1 As New Dictionary, d2 As New Dictionary, d3 As New Dictionary, ar
    ar = Sheet1.Range("A1").CurrentRegion
    For i = 2 To UBound(ar)
        d1(ar(i, 2)) = ar(i, 3): d2(ar(i, 4)) = ar(i, 5)
        d3(ar(i, 4) & ar(i, 2)) = d3(ar(i, 4) & ar(i, 2)) + ar(i, 6)
    Next
    Application.ScreenUpdating = False
    With Sheet3
        .UsedRange.Cells.ClearContents
        .[a4].Resize(d2.Count, 2) = Application.Transpose(Array(d2.Keys, d2.Items))
        .[c2].Resize(1, d1.Count) = d1.Keys: .[c3].Resize(1, d1.Count) = d1.Items
        For i = 4 To d2.Count + 3
            For j = 3 To d1.Count + 2
                .Cells(i, j) = d3(.Cells(i, 1).Value & .Cells(2, j).Value)
            Next
        Next
    End With
    Application.ScreenUpdating = True
End Sub