Mover comentários para nova coluna no MS Excel

Question

Eu tenho uma coluna em uma tabela onde (quase) cada célula da coluna tem um comentário (triângulo vermelho), eu gostaria de mover todos os comentários para uma nova coluna.

Exemplo do que tenho:

Col.1
MIT (comment: MA)
Harvard (comment: MA)
Yale (comment: CT)
NYU (no comment)

O que eu gostaria de ter:

Col.1, Col.2
MIT, MA
Harvard, MA
Yale, CT
NYU, ?

    

Answer 1

Acredito que isso seja possível apenas com o VBA. Experimente o ff. função definida pelo usuário:

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

Para criar o UDF :

1. Pressione CTRL + F11 .
2. Cole o código acima.
3. Feche o editor do VBA.

Nota:
Se você quiser mostrar o nome do autor do comentário também, substitua a quinta linha por: GetComment = c.Comment.Text

Para usar a função , insira o ff. em uma célula na coluna onde você deseja colocar os comentários e depois copiá-los.

=GetComment(B1)

Onde:% B1 é uma célula que contém o comentário que você deseja obter

Veja um exemplo de como usá-lo: