Excel vba-除包含最小日期的行外,所有行的平均值

Excel vba-除包含最小日期的行外,所有行的平均值,excel,vba,Excel,Vba,我想编写一个vba代码来计算数字列(第三个)的平均值,但包含最小日期的行除外,因为我想将第一天的数据与其他日期的数据进行比较 但是,我也要考虑这一年。我想平均除17之外的所有AN16 我不知道该怎么做,这里似乎没有任何东西适合我 以下是我的数据: AN17 01-mar-17 65298340734 AN17 02-mar-17 30382114732 AN17 03-mar-17 25149388406 AN17 04-mar-17 5424936128

我想编写一个vba代码来计算数字列(第三个)的平均值,但包含最小日期的行除外,因为我想将第一天的数据与其他日期的数据进行比较

但是,我也要考虑这一年。我想平均除17之外的所有AN16

我不知道该怎么做,这里似乎没有任何东西适合我

以下是我的数据:

AN17    01-mar-17   65298340734
AN17    02-mar-17   30382114732
AN17    03-mar-17   25149388406
AN17    04-mar-17   54249361285
AN17    05-mar-17   34757947426
AN17    06-mar-17   18546884324
(I need an average here, that excludes number from March 1st)
AN16    26-feb-16   56450549777
AN16    27-feb-16   51285706203
AN16    28-feb-16   37384621464
AN16    29-feb-16   28992655707
AN16    01-mar-16   21979700006
AN16    02-mar-16   27826026350
(I need an average here, that excludes number from February 26th)
有人能帮忙吗


谢谢并致以最良好的问候

如果您有Office 365 Excel订阅,请在D1中使用此公式:

=IF(A1<>A2,AVERAGEIFS(C:C,A:A,A1,B:B,">" & MINIFS(B:B,A:A,A1)),"")
=IF(A1A2,AVERAGEIFS(C:C,A:A,A1,B:B),“>”和MINIFS(B:B,A:A,A1)),“”)
并抄写:


如果您无权访问Office 365,请使用以下公式:

=IF(A1<>A2,AVERAGEIFS(C:C,A:A,A1,B:B,">" & AGGREGATE(15,6,$B$1:$B$12/($A$1:$A$12=A1),1)),"")
=IF(A1A2,AVERAGEIFS(C:C,A:A,A1,B:B,“>”&聚合(15,6,$B$1:$B$12/($A$1:$A$12=A1),1)),“”)

如果使用2007或更高版本,则需要使用以下数组公式:

=IF(A1<>A2,AVERAGEIFS(C:C,A:A,A1,B:B,">" & MIN(IF($A$1:$A$12=A1,$B$1:$B$12))),"")
=IF(A1A2,AVERAGEIFS(C:C,A:A,A1,B:B,“>”&MIN(IF($A$1:$A$12=A1,$B$1:$B$12)),“”)

作为数组公式,必须在退出编辑模式时使用Ctrl-Shift-Enter而不是Enter确认。如果操作正确,Excel将在公式周围放置
{}

如果您有Office 365 Excel订阅,则在D1中使用此公式:

=IF(A1<>A2,AVERAGEIFS(C:C,A:A,A1,B:B,">" & MINIFS(B:B,A:A,A1)),"")
=IF(A1A2,AVERAGEIFS(C:C,A:A,A1,B:B),“>”和MINIFS(B:B,A:A,A1)),“”)
并抄写:


如果您无权访问Office 365,请使用以下公式:

=IF(A1<>A2,AVERAGEIFS(C:C,A:A,A1,B:B,">" & AGGREGATE(15,6,$B$1:$B$12/($A$1:$A$12=A1),1)),"")
=IF(A1A2,AVERAGEIFS(C:C,A:A,A1,B:B,“>”&聚合(15,6,$B$1:$B$12/($A$1:$A$12=A1),1)),“”)

如果使用2007或更高版本,则需要使用以下数组公式:

=IF(A1<>A2,AVERAGEIFS(C:C,A:A,A1,B:B,">" & MIN(IF($A$1:$A$12=A1,$B$1:$B$12))),"")
=IF(A1A2,AVERAGEIFS(C:C,A:A,A1,B:B,“>”&MIN(IF($A$1:$A$12=A1,$B$1:$B$12)),“”)
作为数组公式,必须在退出编辑模式时使用Ctrl-Shift-Enter而不是Enter确认。如果操作正确,Excel将在公式周围放置
{}