一、代码需求
有一列日期数据,因中间有间隔月份,需要把月份补齐
如图:A列是原始数据,需添加一个辅助列B列:插入的行数,由函数计算得来(=DATEDIF(A2,A3,”m”)-1)
二、代码示例
Sub 插入行并添加值()
Dim x As Integer, y As Integer, z As Integer, n As Integer
z = Sheet4.Range("a65536").End(xlUp).Row
y = 3
For n = 0 To z
If Cells(y -