Доброго времени суток. Имеется набор комментариев типа: "дата: 05.09.2020 начало: 05.09.2020 суббота окончание: 06.09.2020 суббота" . Необходимо в любую ячейку записать "начало: 05.09.2020 окончание: 06.09.2020".
Как можно дополнить код ниже приведенного макроса чтобы преобразовать комментарий?:
Как можно дополнить код ниже приведенного макроса чтобы преобразовать комментарий?:
Код |
---|
Sub reestr() Function GetComment(rCell As Range) As String GetComment = rCell.Comment.Text End Function |