Tweak existing code to get the desired output

[motherindia]

Hi Sir,

The following code plot the days between 2 dates into separate column. However, I need to get number of days between 2 dates monthwise;

ID	S Date	E Date
1	01/06/2017	15/07/2017
1	16/07/2017	12/08/2017
1	14/08/2017	30/08/2017
output should be
ID	Jun'17	Jul'17	Aug'17
1	30	31	30

<tbody>
</tbody><colgroup><col><col><col><col></colgroup>

http://www.ozgrid.com/forum/showthread.php?t=197056&page=2&




sub test
Dim a, i As Long, ii As Long, w, DD, ub As Long
a = Cells(1).CurrentRegion.Value
With CreateObject("Scripting.Dictionary")
For i = 2 To UBound(a, 1)
If Not .exists(a(i, 1)) Then
Redim w(1 To 2)
For ii = 1 To 2
w(ii) = a(i, ii)
Next
.Item(a(i, 1)) = w
Else
w = .Item(a(i, 1))
End If
ub = UBound(w)
DD = DateDiff("d", a(i, 3), a(i, 4)) + 1
Redim Preserve w(1 To UBound(w) + DD)
For ii = ub + 1 To UBound(w)
w(ii) = a(i, 3) + ii - ub - 1
Next
.Item(a(i, 1)) = w
Next
For i = 0 To .Count - 1
Sheets("Sheet2").Select
Range("A1").Select

Cells(i + 1, "a").Resize(, UBound(.items()(i))) = .items()(i)
Next
End With


End sub

Regards,
motherindia