Добрый день, подскажите, пожалуйста, как работать с ячейками Даты.
Задача состоит в том, чтобы подсчитать количество объектов на Листе1 с совпадающим месяцем и годом таблицы на Листе "Итого" и вывести значения на лист Итого.
Проблема в том, что только на листе "Итого" даты в формате (месяц, год), а на листе1 (день, месяц, год). Написанная ниже программа совпадений не находит.

Лист 1

доктор	дата	доктор	дата	доктор	дата	доктор	дата
трактор	14.12.2017	луна	пр	солнце	пол	луна	рп
трактор	10.01.2018	трактор	в	трактор	дек.17	луна	в
трактор	р	луна	пр	морковь	пол	луна	ва
трактор	в	луна	дло	луна	пго	луна	цув

Лист Итого

дек.17	янв.18
1

 

Sub Кнопка1_Щелчок()

Dim a As Integer, b As Integer, i1 As Integer, j1 As Integer, j2 As Integer

For j1 = 1 To 8

If Worksheets("Лист1").Cells(2, j1) Like "доктор" Then

For i1 = 3 To 6

If Worksheets("Лист1").Cells(i1, j1) Like "трактор" Then

For j2 = 1 To 2

If Worksheets("Лист1").Cells(i1, j1 + 1) Like Worksheets("Итого").Cells(1, j2) Then

a = Worksheets("Итого").Cells(2, j2)

a = a + 1

Worksheets("Итого").Cells(2, j2) = a

End If

Next j2

End If

Next i1

End If

Next j1

End Sub