如何在vba中find一组数据的月份的第一个date

我有这样一组数据:

05/06/2015 04/06/2015 03/06/2015 02/06/2015 29/05/2015 28/05/2015 27/05/2015 26/05/2015 25/05/2015 22/05/2015 21/05/2015 20/05/2015 19/05/2015 18/05/2015 15/05/2015 14/05/2015 13/05/2015 12/05/2015 11/05/2015 08/05/2015 07/05/2015 06/05/2015 05/05/2015 04/05/2015 30/04/2015 29/04/2015 28/04/2015 27/04/2015 24/04/2015 23/04/2015 22/04/2015 21/04/2015 20/04/2015 17/04/2015 16/04/2015 15/04/2015 14/04/2015 13/04/2015 10/04/2015 09/04/2015 08/04/2015 07/04/2015 06/04/2015 02/04/2015 01/04/2015 31/03/2015 

这些指的是一年中的平日。 在这些date中,我想find本月的第一个date。 例如,6月份,第一个确定的date应该是2015年6月2日,5月4日是2015年5月4日。

我曾尝试过这样的事情:

 =IF(Cellreference=((Cellreference)-DAY(Cellreference)+1),TEXT(Cellreference,"mmm"),"") 

但是这仅仅是一个月的第一个date。 我希望它是在给定date列表中的月份中的第一个date。

需要一些指导如何实现这一点。

我看你使用公式,所以我只能在下面build议:

 =MIN(IF(MONTH(AllDateReference)=MONTH(CellReference),AllDateReference,1E+99)) 

这是使用Ctrl + Shift + Enterinput的数组公式。
实际样本:

 =MIN(IF(MONTH(A$1:A$46)=MONTH(A1),A$1:A$46,1E+99)) 

其中A$1:A$46包含所有date。

编辑1:仅在当月的第一个date显示。

 =IF(A1=MIN(IF(MONTH(A$1:A$46)=MONTH(A1),A$1:A$46,1E+99)),A1,"") 

样品:

在这里输入图像说明