Question

过去我曾经使用Variants来做类似的事情，但它的解决方案却是一维的。我想知道是否使用具有两个维度的变体是可行的。

我一直在更改与一周相对应的日期列表，这些日期将按时间顺序输入。下一列是该周的计数。 Column C是它发生的建筑物。

例如，上图中显示的第一行是"10/2/2016"周，本周有8个计数，这意味着行2-9中的建筑物与该周相关联，它会在每个相应的一周继续。

我有每年的计数总和，因此对于"E1:G14"中的图表，我想分别计算每次计算每年的建筑物数量。我只是对如何处理它感到困惑，如果Variants有用，或者使用CountIfs作为范围将是最好的。

提前谢谢。

CODE

Private Sub maybe()

    Dim sht As Worksheet: Set sht = Worksheets("Sheet3")
    Dim wk_cnt As Double: wk_cnt = sht.Range("A1", sht.Range("A1").End(xlDown)).Rows.Count
    Dim bld_cnt As Double: bld_cnt = sht.Range("C2", sht.Range("C2").End(xlDown)).Rows.Count
    Dim cnt As Double
    Dim yrs_cnt As Double
        If sht.Range("D3").Value = "" Then
            yrs_cnt = 1
        Else:
            yrs_cnt = sht.Range("D2", sht.Range("D2").End(xlDown)).Rows.Count
        End If
    Dim yrsArray As Range
        If sht.Range("D3").Value = "" Then
            Set yrsArray = sht.Range("D2")
        Else:
            Set yrsArray = sht.Range("D2", sht.Range("D2").End(xlDown))
        End If
    Dim vCnts As Variant

    ReDim vCnts(1 To 12, 1 To yr_cnt)
        vCnts(1, 1) = "Irving Building"
        vCnts(2, 1) = "Memorial Building"
        vCnts(3, 1) = "West Tower"
        vCnts(4, 1) = "Witting Surgical Center"
        vCnts(5, 1) = "Madison Irving Surgery Center"
        vCnts(6, 1) = "Marley Education Center"
        vCnts(7, 1) = "410 South Crouse"
        vCnts(8, 1) = "Physicians Office Building"
        vCnts(9, 1) = "Crouse Business Center"
        vCnts(10, 1) = "Commonwealth Place"
        vCnts(11, 1) = "Crouse Garage"
        vCnts(12, 1) = "CNY Medical Center"

    For x = 1 To yrs_cnt
        cnt = 0
        For y = 2 To wk_cnt
            If Year(sht.Cells(y, 1).Value) = sht.Cells(1, x + 5).Value Then
                cnt = cnt + sht.Cells(y, 2).Value
                sht.Cells(14, x + 5) = cnt
            End If
        Next y
    Next x

End Sub

修改

使用C栏

只有A列和A列。乙

我需要数字来匹配第二张图片，但是当我包含所有三列时，它看起来就像我按年份分组后的第一张图片。我该如何解决这个问题？

Answer 1

看起来您的数据透视表正在使用“计数”列不正确。如果它显示“Count of Count”，它会告诉您显示的数字是您的数据范围中有多少行符合所选标准。我认为如果您将值字段设置更改为SUM，您会对差异感到满意。见下文：

使用多种变体计数

1 个答案: