☰

在过滤列表中将平均小计与月份“内联”写入

tag-icon • tag-icon microsoft-excel vba
在过滤列表中将平均小计与月份“内联”写入

我有一个值列表，想要根据函数计算每个月的平均值subtotal(101)。每个月的值数量不同（例如 3 月有 5 个值，7 月有 17 个值）。（见下表）

Value  Month  MonthAvg
----------------------
34     Jan  
32     Jan 
34     Feb
22     Feb
45     Feb   
71     Mar
80     Mar
101    Mar

我当前的代码循环遍历自动过滤列表（一月 - 十二月）中的所有月份，并将平均值写入数组，然后将这些值输出到工作表中相应月份的列中。

Dim lMonthCounter As Integer
Dim arrMonthAvg(11) As Single
Dim wksA as Worksheet

For lMonthCounter = 21 To 32
      
     wksA.Range("a1").AutoFilter Field:=4, Criteria1:=lMonthCounter, Operator:=11, Criteria2:=0, SubField:=0   
     arrMonthAvg(lMonthCounter - 21) = Application.WorksheetFunction.Subtotal(101, wksA.Range("F:F"))       
     
Next lMonthCounter

我不想将这些值输出到工作表中的单元格，而是希望它们与相应的月份“一致”，以便在图表中使用它们，如下所示：

Value  Month  MonthAvg
-----------------------
34     Jan    33
32     Jan    33
34     Feb    33.66
22     Feb    33.66
45     Feb    33.66
71     Mar    84
80     Mar    84
101    Mar    84

有什么指示可以告诉我如何将这些平均值写入已筛选的单元格吗？如果与任务相关，则每个月的值不一定按日期的升序或降序排列（这意味着可能是六月之后是三月）。

相关内容