Public Function SumPrim(Perv As Range, Shag, Gde As Range)
'сцепляет текст из второй строки примечаний, расположенных
'в той строке, где находится сама ЮДФ
'начиная с ячейки Perv с шагом Shag, заканчивая ячейкой Gde
'и записывает все это в примечание, которое создается в ячейке Gde
      Application.Volatile
      c0_ = Perv.Column
      c1_ = Gde.Column
      r_ = Perv.Row
      For i = c0_ To c1_ Step Shag
          If Not Cells(r_, i).Comment Is Nothing Then
              com = Split(Cells(r_, i).Comment.Text, vbLf)
              If com_ = "" Then
                  com_ = com(0) & Chr(10) & com(1)
              Else
                  com_ = com_ & ", " & com(1)
              End If
          End If
      Next i
      Gde.ClearComments
      If com_ <> "" Then
          Gde.AddComment
          With Gde.Comment
              .Visible = True
              .Text Text:=com_
          End With
          SumPrim = "См. примечание в ячейке " & Gde.Address(0, 0)
      Else
          SumPrim = "Примечаний нет"
      End If
End Function