在同一行macros中的小计和计数

我有一个报告,我试图产生显示在贷款官员分组的贷款政策以外的贷款,美元贷款的政策以外的贷款小计。 我也想计算一下贷款的数量,但是我不能让计数和小计一样出现。

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的“虚拟”列,但是我想隐藏“虚拟”列,以便报告可以放在一张纸上,而且我不知道如何抵消结果小计,因为不同的贷款人员在政策之外提供的贷款数量在不同的时期会有所不同。 有没有办法做到这一点?

在上面的注释中解决了这个问题,为了让我的报告在适当的列(本例中为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函数:“小计(3”)。如果您只需要计算包含数字的单元格(例如,不包括逻辑值,文本,错误值等。)然后使用Count函数:“小计(2”)。

再次感谢pnuts给出正确的答案!