按名称和两个日期之间的相应天数计算月份

Question

我需要一个简单的 VBA 代码，它将告诉我两个日期之间的月份名称以及这些月份中的相应日期，如下所示。如果需要，它应该在两个日期之间自动添加行。谁能写出excelVBA的代码，感激不尽

START DATE 20/10/2017   END DATE 15/10/2018
Oct-17  11
Nov-17  30
Dec-17  31
Jan-18  31
Feb-18  28
Mar-18  31
Apr-18  30
May-18  31
Jun-18  30
Jul-18  31
Aug-18  31
Sep-18  30
Oct-18  15

Answer 1

在第一栏中写下并复制：

=IF(DATE(YEAR($A),MONTH($A)+ROW(1:1)-1,1)<$B,DATE(YEAR($A),MONTH($A)+ROW(1:1)-1,1),"")

然后在下一栏中输入：

=IF(A2<>"",IF(AND(MONTH(A2)=MONTH($A),YEAR(A2)=YEAR($A)),EOMONTH(A2,0)-$A,IF(AND(MONTH(A2)=MONTH($B),YEAR(A2)=YEAR($B)),$B-EOMONTH(A2,-1),DAY(EOMONTH(A2,0)))),"")

然后抄下来。

您需要格式化第一列mmm-yy

按名称和两个日期之间的相应天数计算月份

calculate months by name and respective days between two dates

excel

vba

days