1

我有一份我正在尝试生成的报告，该报告显示了政策之外的贷款，按信贷员分组，以及政策之外的美元金额小计。我也想计算贷款的数量，但我无法让计数与小计出现在同一行。

 Range("A2:K2", ActiveCell.End(xlDown)).Select
Selection.CurrentRegion.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(1, 7, 8), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.CurrentRegion.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _
    Replace:=False, PageBreaks:=False, SummaryBelowData:=True

这会在第 1、7 和 8 列中产生我想要的小计，但在小计上方插入了一行，并且计数显示在小计上方一行的第 4 列中。最后，我尝试了真/假陈述的不同变化。我还尝试在每笔贷款旁边添加一个 1 的“虚拟”列，但是我想隐藏“虚拟”列，以便报告可以放在一张纸上，我不知道如何抵消结果小计，因为不同信贷员在政策范围之外提供的贷款数量在不同时期会有所不同。有没有办法做到这一点？

4

1 回答 1

1

正如 pnuts 在上面的评论中解决的那样，为了让我的报告在适当的列（在这种情况下为 1、7 和 8）中包含小计，在适当的列（在这种情况下为第 4 列）中包含计数，以下代码可以很好地工作：

Range("A2:K2", ActiveCell.End(xlDown)).Select
Selection.CurrentRegion.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(1, 7, 8), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Columns(4).Replace What:="subtotal(9", Replacement:="subtotal(3", LookAt:=xlPart

请记住，如果您想计算某个范围内的所有单元格，请使用CountA函数：“subtotal(3”)。如果您只需要计算包含数字的单元格（例如，不包括逻辑值、文本、错误值等）。 ,) 然后使用Count函数：“subtotal(2”)。

再次感谢 pnuts 给出正确答案！

于 2014-08-20T16:43:49.010 回答