[求助]请问三个工作表的数据能否做在一个透视表里

佛心红颜

kghdjM5t.rar (2.34 KB, 下载次数: 11)

2007-12-3 16:20 上传

点击文件名下载附件
[求助]请问三个工作表的数据能否做在一个透视表里

请问能否将10,11,12三个月的数据用一张透视表做出来,如不行,可有其他方法.

我试过合并运算,可能是技术不好,始终弄不出来.

麻烦各位!

等待中......

lenghonghai

Private Sub CommandButton1_Click()
Dim sh As Worksheet, d As Object
Set d = CreateObject("scripting.dictionary")
Dim x%, s$, m%, arr$(1 To 1000, 1 To 6), sh1 As Worksheet
For Each sh In Worksheets
    x = sh.Range("a65536").End(xlUp).Row
    For i = 2 To x
        s = sh.Range("a" & i).Value & sh.Range("b" & i).Value
        If Not d.exists(s) Then
            m = m + 1
            d.Add s, m
            For j = 1 To 6
                arr(m, j) = sh.Cells(i, j).Value
            Next j
        Else
            For k = 4 To 6
                arr(d(s), k) = arr(d(s), k) + sh.Cells(i, k).Value
            Next k
        End If
    Next i
Next sh
Set sh1 = Worksheets.Add
sh1.Range("a2").Resize(1000, 6) = arr
End Sub

试试。

[此贴子已经被作者于2007-12-5 8:30:21编辑过]