☰

Mova comentários para uma nova coluna no MS Excel

tag-icon • tag-icon microsoft-excel
Mova comentários para uma nova coluna no MS Excel

Tenho uma coluna em uma tabela onde (quase) cada célula dessa coluna possui um comentário (triângulo vermelho), gostaria de mover todos os comentários para uma nova coluna.

Exemplo do que tenho:

Col.1
MIT (comentário: MA)
Harvard (comentário: MA)
Yale (comentário: CT)
NYU (sem comentários)

O que eu gostaria de ter:

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

Responder1

Acredito que isso só seja possível com 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 a UDF:

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

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

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

=GetComment(B1)

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

Aqui está um exemplo de como usá-lo:

insira a descrição da imagem aqui

informação relacionada