Переместить комментарии в новый столбец в MS Excel

Question

У меня есть один столбец в таблице, где (почти) каждая ячейка в этом столбце содержит комментарий (красный треугольник). Я хотел бы переместить все комментарии в новый столбец.

Пример того, что у меня есть:

Кол.1
MIT (комментарий: MA)
Harvard (комментарий: MA)
Yale (комментарий: CT)
NYU (без комментариев)

Что бы я хотел иметь:

Кол.1, Кол.2
Массачусетский технологический институт, Массачусетс
Гарвард, Массачусетс
Йельский университет, Коннектикут Нью-Йоркский
университет, ?

Answer 1

Я считаю, что это возможно только с VBA. Попробуйте ff. пользовательскую функцию:

Public Function GetComment(c As Range) As String
    If c.Comment Is Nothing Then
        GetComment = "?"
    Else
        GetComment = Replace(c.Comment.Text, c.Comment.Author & ":", "")
    End If
End Function

Для создания UDF:

1. Нажмите CTRL+ F11.
2. Вставьте код выше.
3. Закройте редактор VBA.

Примечание:
если вы хотите также отображать имя автора комментария, замените пятую строку на:
GetComment = c.Comment.Text

Чтобы использовать функцию, введите ff. в ячейку в столбце, где вы хотите разместить комментарии, а затем скопируйте его вниз.

=GetComment(B1)

Где:
B1ячейка, содержащая комментарий, который вы хотите получить

Вот пример того, как это использовать: