¿Cómo insertar rápidamente un comentario en varias celdas en Excel?
En una hoja de trabajo, insertar un comentario en una celda es muy fácil, pero cuando desea insertar el mismo comentario en varias celdas al mismo tiempo, ¿cómo podría hacerlo?
Insertar un comentario en varias celdas con la función Pegar especial
Inserte un comentario en varias celdas con código VBA
Insertar un comentario en varias celdas con la función Pegar especial
En Excel, no hay forma de insertar varios comentarios al mismo tiempo. Sin embargo, puede copiar un comentario en varias celdas de la siguiente manera:
1. Inserte su comentario en una celda.
2. Seleccione la celda de comentario y presione el Ctrl + C teclas para copiarlo.
3. A continuación, seleccione y haga clic con el botón derecho en el rango en el que le gustaría insertar comentarios por lotes, seleccione Pegado especial > Pegado especial desde el menú contextual. Ver captura de pantalla:
4. En el Pegado especial cuadro de diálogo, verifique Comentarios opción, y luego haga clic en la OK botón. Ver captura de pantalla:
Luego, los mismos comentarios se insertan en todas las celdas seleccionadas inmediatamente.
Note: Este método insertará los mismos comentarios en todas las celdas seleccionadas. Si desea insertar los mismos comentarios en las celdas visibles solo de una lista filtrada, pruebe el método VBA a continuación.
Inserte un comentario en varias celdas con código VBA
Supongamos que tiene una lista filtrada como se muestra a continuación. Y solo desea agregar comentarios por lotes a todas las celdas visibles. Haz lo siguiente.
1. presione el otro + F11 llaves juntas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Mocrosoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Móduloe ingrese el siguiente código en el módulo:
VBA: Lote de comentarios inertes en varias celdas (celdas visibles solo en la lista filtrada)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub3. presione el F5 clave para ejecutar el código. En la primera aparición Kutools for Excel cuadro de diálogo, seleccione el rango filtrado que desea agregar comentarios, y luego haga clic en el OK botón. Ver captura de pantalla:
4. Luego otro Kutools for Excel aparece el cuadro de diálogo, ingrese su comentario en el cuadro de texto y luego haga clic en el OK del botón.
Ahora los comentarios se insertan en todas las celdas visibles solo en la lista filtrada seleccionada como se muestra a continuación:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
