¿Cómo pegar solo los valores en celdas visibles o filtradas en Excel?
En Excel, si ha filtrado datos u ocultado algunas celdas, al pegar valores en el rango filtrado u oculto, las celdas ocultas también se rellenarán con los valores pegados. A continuación, le explicamos algunos trucos para pegar valores únicamente en las celdas visibles en Excel.
Pegar valores en celdas visibles con VBA
Pegar valores en celdas visibles con Pegar en rango visible de Kutools para Excel ![]()
Pegar valores en celdas visibles con VBA
En Excel, no hay otras formas de resolver este problema más que mediante el uso de VBA.
1. Pulse Alt + F11 simultáneamente y aparecerá una ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código VBA en la ventana del módulo que aparece.
VBA: Pegar valores únicamente en celdas visibles.
Sub CopyFilteredCells()
'Updateby20150203
Dim rng1 As Range
Dim rng2 As Range
Dim InputRng As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type: = 8)
Set OutRng = Application.InputBox("Paste Range:", xTitleId, Type: = 8)
For Each rng1 In InputRng
rng1.Copy
For Each rng2 In OutRng
If rng2.EntireRow.RowHeight > 0 Then
rng2.PasteSpecial
Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
Exit For
End If
Next
Next
Application.CutCopyMode = False
End Sub 3. Haga clic en F5 o en el botón Ejecutar, y aparecerá un cuadro de diálogo para que seleccione los valores que desea copiar. Vea la captura de pantalla:
4. Tras seleccionar los valores, haga clic en Aceptar y aparecerá otro cuadro de diálogo para seleccionar el rango donde desea pegar los datos seleccionados. Vea la captura de pantalla:
5. Haga clic en Aceptar. Verá que solo las celdas visibles han recibido los valores seleccionados.
Pegar valores en celdas visibles con Pegar en rango visible de Kutools para Excel
De hecho, si utiliza la utilidad Pegar en rango visible de Kutools para Excel —una práctica herramienta para Excel—, podrá resolver rápida y fácilmente el problema de pegar valores en un rango visible.
Tras instalar Kutools para Excel, siga estos pasos:(¡Descarga gratuita de Kutools para Excel ahora!)
1. Seleccione el rango de valores que desee copiar y pegar, luego haga clic en Kutools > Rango > Pegar en rango visible > Todo o Pegar solo valores. Vea la captura de pantalla:
2. A continuación, aparecerá el cuadro de diálogo Pegar en rango visible, donde podrá seleccionar el rango en el que desea pegar los valores. Vea la captura de pantalla:
3. Haga clic en Aceptar. Ahora, los valores seleccionados se habrán pegado únicamente en el rango visible.
| Pegar solo valores en celdas visibles | Pegar todo en celdas visibles |
![]() | ![]() |
Haga clic aquí para obtener más información sobre la utilidad «Pegar en rango visible».
Pegar en visibleSolo celdas
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos

