Question

我有一份报告，我试图生成这些报告显示政策之外的贷款，按贷款人员分组，以及在政策之外进行的美元贷款额度小计。我还想计算一下贷款数量，但我不能把计数与小计出现在同一行。

 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列中显示计数。我在最后尝试了真/假语句中的不同变体。我还尝试在每笔贷款旁边添加一个1s的“虚拟”列，但我想隐藏“虚拟”列，以便报告适合一张纸，我不知道如何抵消结果小计数，因为各种贷款人员在政策之外发放的贷款数量会因期间而异。有没有办法做到这一点？

Answer 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函数：＆＃34;小计（3＆＃34;。如果您只需要包含数字的单元格计数（例如，排除逻辑值，文本，错误值等，然后使用Count函数：＆＃34;小计（2＆＃34;。

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

同一行宏中的小计和计数

1 个答案: