prucommercialre.com


Copiado Comentarios de células

Héctor tiene una gran hoja de cálculo que contiene aproximadamente 600 filas y 70 columnas. Corre a lo largo de estas células 43.000 son alrededor de 200 células con comentarios. Héctor quiere extraer los comentarios y los situará en celdas a la derecha del cuerpo principal de la tabla de datos. Si un comentario, por ejemplo, se adjunta a la celda C43, entonces a él le gustaría que el texto del comentario a terminar en CC43 celular y el comentario original para ser eliminado.

Se podría pensar que usted podría utilizar Pegado especial para realizar la tarea, pero eso no quiere trabajar. Si copia las células originales y luego usar Editar | Pegado especial | Comments, entonces sólo los comentarios se pegan a las células diana. Todavía están los comentarios, y no de texto en las células, lo cual va en contra de la meta de Héctor.

La única manera de manejar este tipo de extracción es utilizar una macro. El siguiente, cuando se ejecuta en una selección de celdas, extraerá los comentarios, mueva el texto del comentario, y luego eliminar el mensaje inicial.

CommentsToCells Sub ()
Dim rCell Como Excel.Range
Dim rdata Como Excel.Range
Dim sComment As String

"El desplazamiento horizontal
Const iColOffset As Integer = 78

'Extraer comentarios de rango seleccionado
Si TypeName (Selección) = "Rango" Entonces
Establecer rdata = Intersección (Selección, ActiveSheet.UsedRange)
Para Cada rCell En rData.Cells
On Error Resume Next
sComment = rCell.Comment.Text
Si Len (sComment)> 0 Then
rCell.Offset (, iColOffset) .Value = sComment
rCell.Comment.Delete
End If
sComment = ""
On Error GoTo 0
Siguiente
End If
End Sub

La macro utiliza la constante iColOffset para especificar cuántas celdas a la derecha del texto de un comentario se moviese. En este caso, el desplazamiento (78) es igual a tres "alfabetos" (26 * 3), por lo que el texto de un comentario originalmente en la columna C va a terminar en la columna de CC.

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (2981) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Copia de comentarios a las células.