没有VBA的复杂的类似枢轴的摘要

时间:2012-08-15 21:09:06

标签: excel vba excel-vba excel-2003 pivot-table

给出一组这样的数据:

User    Item1 Desc.    Item1 Sel.    Item2 Desc.    Item2 Sel.    Item3 Desc.    Item3 Sel.
UserA   Item 1         Yes           Item 2         Yes           Item 3         Yes
UserB   Item 1         Yes           Item 2         No            Item 3         No
UserB   Item 1         Yes           Item 2         Yes           Item 3         No
UserC   Item 1         Yes           Item 2         No            Item 3         Yes
UserA   Item 1         No            Item 2         Yes           Item 3         Yes
UserA   Item 1         Yes           Item 2         No            Item 3         Yes

有没有办法可以使用内置的Excel工具,函数或公式来生成这样的输出

Item    UserA    UserB    UserC
Item1   1        0        0
Item2   1        1        1
Item3   0        2        0

合并了ItemsUsers,并且显示的值是表格中No的计数?

我被要求为我的一位同事准备这个,最后在下面创建了VBA功能。这很快,很脏,而且需要重构,当然,它确实得到了我所需要的东西。

Sub SummarizeData()

Dim wksSrc As Worksheet
Dim dicAssoc As Object
Dim l As Long
Dim i As Integer
Dim rngCell As Range
Dim v As Variant

    Set dicAssoc = CreateObject("Scripting.Dictionary")
    With ThisWorkbook.Sheets.Add()
        .Name = "Results"
        Set wksSrc = ThisWorkbook.Sheets("data")
        For l = 2 To 184
            If Not dicAssoc.exists(wksSrc.Range("C" & l).Value) Then
                dicAssoc.Add wksSrc.Range("C" & l).Value, wksSrc.Range("C" & l).Value
            End If
        Next l
        .Range("A1:A26").Value = ThisWorkbook.Sheets("Sheet5").Range("A1:A26").Value
        l = 2
        For Each v In dicAssoc.items
            .Cells(1, l).Value = v
            l = l + 1
        Next v
        For Each rngCell In wksSrc.Range("A2:CT184").Cells
            For l = 2 To 26
                If rngCell.Value = .Cells(l, 1).Value Then
                    If rngCell.Offset(0, 1).Value = "No" Then
                        For i = 2 To 148
                            If .Cells(1, i).Value = wksSrc.Range("C" & rngCell.Row).Value Then
                                .Cells(l, i).Value = .Cells(l, i).Value + 1
                            End If
                        Next i
                    End If
                End If
            Next l
        Next rngCell
    End With
End Sub

我原本试图在没有代码的情况下解决这个问题,但经过一些试验和错误后,决定最好不要浪费我一整天的时间来完成这个项目。我以为我可以尝试DCOUNTA,但这需要我提取多个额外的数据行,这些数据会浪费空间:

DCOUNT条件示例:

Item1 Sel.    Item2 Sel.    Item3 Sel.    User
No                                        UserA
              No                          UserA
                            No            UserA
No                                        UserB
              No                          UserB
                            No            UserB

依此类推。有大约25个项目和大约25个用户,这将是一个巨大的块,其中大部分必须手动创建。那时候,我不妨用手去计算所有东西。

我还想过使用VLOOKUPHLOOKUPINDEXINDIRECT的某些组合,但我永远无法得到计算 ALL <的结果/ em> No s;它总是抓住它找到的第一条线。

我想知道是否有一种相对简单的方法可以使用VBA生成不使用的摘要。

1 个答案:

答案 0 :(得分:6)

使用SUMPRODUCT公式可以轻松实现您想要的效果。

请参阅随附的示例和屏幕截图。

要查找项目1和用户1的“否”编号,我使用的公式是

=SUMPRODUCT(($A$2:$A$7=$B$11)*($C$2:$C$7="No"))

同样,你必须为其余部分做这件事。

示例文件

http://wikisend.com/download/725440/Gaffi.xlsx

<强>快照

enter image description here