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

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

Кол.1
MIT (комментарий: MA)
Гарвард (комментарий: МАМА)
Йельский университет (комментарий: CT)
NYU (без комментариев)

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

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

1 ответ1

2

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

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.

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

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

=GetComment(B1)

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

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .