☰

Mover comentarios a una nueva columna en MS Excel

tag-icon • tag-icon microsoft-excel
Mover comentarios a una nueva columna en MS Excel

Tengo una columna en una tabla donde (casi) cada celda de esa columna tiene un comentario (triángulo rojo), me gustaría mover todos los comentarios a una nueva columna.

Ejemplo de lo que tengo:

Col.1
MIT (comentario: MA)
Harvard (comentario: MA)
Yale (comentario: CT)
NYU (sin comentarios)

Lo que me gustaría tener:

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

Respuesta1

Creo que esto sólo es posible con VBA. Prueba el ff. función definida por el usuario:

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 crear la UDF:

  1. Pulsa CTRL+ F11.
  2. Pega el código de arriba.
  3. Cierre el editor VBA.

Nota:
Si desea mostrar también el nombre del autor del comentario, reemplace la quinta línea con:
GetComment = c.Comment.Text

Para usar la función, ingrese el ff. en una celda de la columna donde desea colocar los comentarios y luego cópielo.

=GetComment(B1)

Donde:
B1es una celda que contiene el comentario que desea obtener

A continuación se muestra un ejemplo de cómo utilizarlo:

ingrese la descripción de la imagen aquí

información relacionada