Как суммировать ячейки, содержащие комментарии, равные тексту образца?

Question

Мне нужно суммировать значения ячеек на листе Office 2013, к которым прикреплено несколько различных текстовых комментариев (например, «Сайт 1», «Сайт 2» и т. Д.)

Этодля расчета сумм средств, потраченных в течение месяца на каждом сайте, которые помещаются в ячейки ежедневной колонки.В течение дня разные ячейки могут представлять разные сайты, на которые были потрачены средства.В конце месяца я хочу суммировать все значения ячеек с определенным комментарием (например, «Сайт 1») рядом с ячейкой с образцом текста (например, «Сайт 1 = Х, ХХХ»)

Я нашел, как получить комментарий из ячейки:

Function FetchComment(val) As String

On Error Resume Next
FetchComment = val.Comment.Text

End Function

Я также попытался адаптировать функцию sumCellsByColor к SumByComment:

Public Function SumByComment(DataRange As Range, CommentSample As Range) As Double

Dim Sum As Double
Application.Volatile True

  For Each cell In DataRange
    If cell.FetchComment = CommentSample.Text Then
      Sum = Sum + cell.Value
    End If
  Next cell

SumByComment = Sum

End Function

Но это просто не 'т работа.Как это решить?