как извлечь содержимое из комментария в ячейку в EXCEL VBA?

#excel #vba Вопрос: Sub CommentToCell() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address,…