Tabla de contenido
Si cortas o copias cualquier texto o imagen, primero se guardará en el portapapeles. Después, podrás pegar el texto o la imagen en cualquier lugar, como en archivos de Word y archivos de Excel. En Excel, puedes pegar desde el portapapeles de muchas formas. Uso de Microsoft Aplicaciones de Visual Basic (VBA) le permite pegar desde el portapapeles en su archivo Excel con algunos códigos. En este artículo, le mostraré 3 métodos para utilizar VBA para pegar desde el portapapeles a Excel.
Supongamos que tiene copiado algunos textos de un archivo de texto y se han guardado en el portapapeles. Ahora, desea pegarlo en su archivo Excel utilizando VBA .
Descargar el cuaderno de prácticas
Pegar del portapapeles a Excel.xlsm3 Métodos para pegar desde el portapapeles a Excel usando VBA
1. Pegar desde el portapapeles en una celda utilizando VBA
Antes de aplicar este método es necesario activar Biblioteca de objetos de Microsoft Forms 2.0 para la VBA proyecto. Para hacerlo,
➤ Prensa ALT+F11 para abrir La VBA
➤ Ir a Herramientas> Referencias en el VBA ventana.
Se abrirá el Referencia- VBAProject ventana.
➤ Comprobar Biblioteca de objetos de Microsoft Forms 2.0 y haga clic en OK .
Activará el Biblioteca de objetos de Microsoft Forms 2.0 . Ahora,
➤ Haga clic en el botón Inserte y seleccione Módulo .
Se abrirá el Módulo(Código) ventana.
➤ Inserta el siguiente código en el archivo Módulo(Código) ventana,
Sub Paste_from_Clipboard() Dim CObj As MSForms.DataObject Set CObj = New MSForms.DataObject CObj.GetFromClipboard XText = CObj.GetText(1) ActiveSheet.Range("B4").Value = XText End Sub El código creará un Macro que pegará los textos del portapapeles en la celda B4 .
Después de insertar el código,
➤ Haga clic en el botón Ejecutar o pulsa F5 .
Ahora,
➤ Cerrar o minimizar el VBA ventana.
Verá que los textos del portapapeles se han pegado en la celda B4 .
Más información: Cómo copiar y pegar en Excel sin fórmulas (7 trucos fáciles)
Lecturas similares
- Cómo copiar valores únicos a otra hoja de cálculo en Excel (5 métodos)
- Copiar Celdas Combinadas y Filtradas en Excel (4 Métodos)
- Cómo copiar filas en Excel (4 maneras fáciles)
- Copiar y Pegar Miles de Filas en Excel (3 Formas)
- Cómo copiar y pegar formato exacto en Excel(6 métodos rápidos)
2. Pegar desde el portapapeles con SendKeys
Este método se basa en la tecla de acceso directo CTRL+V que se utiliza para pegar datos. Con un VBA puede utilizar este comando para pegar datos desde el portapapeles. En primer lugar,
➤ Haga clic con el botón derecho del ratón en el nombre de la hoja desde la pantalla Proyecto panel del VBA ventana.
Aparecerá un menú desplegable.
➤ Ampliar Inserte pulsando y, a continuación, seleccione Módulo .
Se abrirá el Módulo(Código) ventana.
➤ Inserta el siguiente código en el archivo Módulo(Código) ventana,
Sub Paste_from_Clipboard_2() ActiveSheet.Range("B4").Select SendKeys "^v" End Sub El código creará un Macro llamado Pegar_desde_la_Cartelera_2 que dará el comando CTRL+V después de seleccionar la celda B4 y pegue los datos del portapapeles en esta celda.
Ahora,
➤ Cerrar o minimizar el VBA ventana.
➤ Prensa ALT+F8
Se abrirá el Macro ventana.
➤ Seleccionar Pegar_desde_la_Cartelera_2 en el Nombre de la macro y haga clic en Ejecutar .
Como resultado, verá que los textos del portapapeles se han pegado en la celda B4 .
Más información: Excel VBA para Copiar Sólo Valores a Destino (Macro, UDF y UserForm)
3. Pegar desde el portapapeles en un rango
En este método, te mostraré cómo puedes copiar una serie de datos de una hoja en el portapapeles y pegar esos datos en otra hoja desde el portapapeles.
Supongamos que tiene el siguiente conjunto de datos en una hoja denominada Datos .
Ahora,
➤ Prensa ALT+11 para abrir el VBA ventana.
➤ Haga clic con el botón derecho del ratón en el nombre de la hoja desde la pantalla Proyecto panel del VBA ventana.
Aparecerá un menú desplegable.
➤ Ampliar Inserte pulsando y, a continuación, seleccione Módulo .
Se abrirá el Módulo(Código) ventana.
➤ Inserta el siguiente código en el archivo Módulo(Código) ventana,
Sub Copy_Clipboard_Range() Worksheets("Datos").Range("B4:E9").Copy ActiveSheet.Paste Destination:=Worksheets("Pegar hoja").Range("B5:E10") End Sub 
El código copiará los datos de B4:E9 de la hoja denominada Datos en el portapapeles. Después, pegará los datos en B5:E10 de la hoja denominada Hoja de pasta del portapapeles.
Después de eso,
➤ Cerrar o minimizar el VBA ventana.
➤ Prensa ALT+F8
Se abrirá el Macro ventana.
➤ Seleccionar Copiar_Cuadro_Rango en el Nombre de la macro y haga clic en Ejecutar .
Como resultado, sus datos se pegarán en el destino deseado.
➤ Ir a la Inicio y haga clic en el icono de la flecha hacia abajo en la esquina inferior izquierda de la pestaña Portapapeles cinta.
Se abrirá el portapapeles a la izquierda de su archivo Excel.
Ahora, puede ver que los datos que se han pegado en la hoja están en el portapapeles. En realidad, los datos se guardaron aquí al principio, y luego se pegaron a la hoja desde aquí.
Más información: Fórmula para Copiar y Pegar Valores en Excel (5 Ejemplos)
Conclusión
En este artículo, encontrará 3 métodos para pegar desde el portapapeles a Excel utilizando VBA Los dos primeros métodos pegarán el contenido del portapapeles en una sola celda, pero con el tercer método puedes pegar datos en un rango. Si tienes alguna confusión, no dudes en dejar un comentario.
