Pasta VBA

VBA Paste funciona de la misma manera que lo hacemos Copiar / Cortar y Pegar en Excel. VBA Pega la versión automatizada de lo que hacemos regularmente en el trabajo de Excel. Pegar datos en cualquier ubicación requerida es la tarea de rutina. Para realizar esta actividad, necesitamos definir la ubicación desde donde elegiremos los datos y la ubicación donde los pegaremos.

¿Cómo utilizar Excel VBA Paste?

Aprenderemos cómo usar un VBA Paste con algunos ejemplos en Excel.

Puede descargar esta plantilla Excel de VBA Paste aquí - Plantilla Excel de VBA Paste

VBA Paste - Ejemplo # 1

Consideremos cualquier celda en Excel que tenga algún texto. Aquí hemos guardado el texto " VBA Paste " en la celda B3 como se muestra a continuación.

Siga los pasos a continuación para usar VBA Paste.

Paso 1: Ahora ve a la ventana de VBA y abre un nuevo Módulo desde el menú Insertar como se muestra a continuación.

Paso 2: Una vez que hagamos eso, obtendremos un módulo en blanco. En eso comienza a escribir Subcategoría. Se recomienda escribir una subcategoría en el nombre de la función que estamos realizando.

Código:

 Sub VBAPaste1 () End Sub

Paso 3: Ahora primero seleccione la celda Rango donde tenemos los datos que necesitamos copiar. Aquí nuestra celda de Rango es B3, seguida de la función .Copiar . Esto copia los datos en la celda de Rango que hemos seleccionado.

Código:

 Sub VBAPaste1 () Rango ("B3"). Copia Fin Sub

Paso 4: ahora necesitamos una celda de destino donde debemos pegar este valor copiado. Con la ayuda del comando Destino, seleccione la celda Rango. Aquí hemos seleccionado la celda D1, donde veremos el valor.

Código:

 Sub VBAPaste1 () Rango ("B3"). Destino de copia: = Rango ("D1") Fin Sub

Paso 5: Una vez hecho, compila el código y ejecútalo.

Veremos que el contenido de la celda de la celda B3 ahora se copia y se pega en la celda D3 como se muestra arriba.

VBA Paste- Ejemplo # 2

Consideremos otro ejemplo de VBA Paste. Para esto, vaya a la ventana de VBA y abra un módulo y luego siga los pasos a continuación.

Paso 1: Comience a escribir Subcategoría en el nombre de VBA Paste o en cualquier otro nombre como se muestra a continuación.

Código:

 Sub VBAPaste2 () End Sub

Paso 2: Aquí consideraremos los mismos datos o la celda de referencia B3 que hemos visto en el ejemplo-1. Seleccione la celda de Rango B3 seguida del comando .Copiar . Esto copiará los datos.

Código:

 Sub VBAPaste2 () Rango ("B3"). Copia Fin Sub

Paso 3: Ahora seleccione la celda de rango donde necesitamos pegar los datos copiados. Aquí estamos seleccionando las celdas D1 a D3 a diferencia de seleccionar solo una celda como se muestra en el ejemplo-1.

Código:

 Sub VBAPaste2 () Range ("B3"). Copy Range ("D1: D3"). Seleccione End Sub

Paso 4: Una vez que hayamos copiado los datos y seleccionado las celdas donde necesita pegarse. Ahora seleccione el comando Pegar con la ayuda de la función ActiveSheet . Esta hoja activa permite que la celda copiada se pegue en celdas de rango.

Código:

 Sub VBAPaste2 () Rango ("B3"). Copiar rango ("D1: D3"). Seleccione ActiveSheet.Paste End Sub

Paso 5: Ahora compila el código y ejecútalo. Veremos, el valor de la celda de la celda B3 se pegará de las celdas D1 a D3.

VBA Paste- Ejemplo # 3

Otro método de VBA Paste es usar el proceso manual que hacemos para copiar y pegar.

Siga los pasos a continuación:

Paso 1: escriba la subcategoría de VBA Paste como se muestra a continuación.

Código:

 Sub VBAPaste3 () End Sub

Paso 2: es mejor asignar la secuencia a la Subcategoría si está escribiendo múltiples conjuntos de códigos en un solo archivo. Para pegar cualquier cosa, primero, necesitamos copiar esos datos. Aquí hemos seleccionado el comando Copiar .

Código:

 Sub VBAPaste3 () Selection.Copy End Sub

Paso 3: Ahora seleccione el rango o la celda de referencia que necesitamos copiar y pegar. Aquí tenemos la celda D3 con datos "VBA Paste".

Código:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Seleccione End Sub

Paso 4: ahora en Excel, seleccionamos las celdas donde necesitamos pegar los datos manualmente o con Shift + Ctrl + teclas arriba / abajo. Aquí también seleccionaremos la ubicación de las celdas mediante el comando End (xlUp) para seleccionar el rango de celdas de salida.

Código:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Seleccione Range (Selection, Selection.End (xlUp)). Seleccione End Sub

Paso 5: Ahora seleccione el rango de celdas de salida, aquí hemos seleccionado las celdas D1 a D3, donde veremos los datos pegados.

Código:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Seleccione Range (Selection, Selection.End (xlUp)). Seleccione Range ("D1: D3"). Seleccione End Sub

Paso 6: Como la función, debemos realizar la función pegar, por lo que debemos activar el comando pegar en VBA mediante el comando ActiveSheet seguido de punto (.) Pegar.

Código:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Seleccione Range (Selection, Selection.End (xlUp)). Seleccione Range ("D1: D3"). Seleccione ActiveSheet.Paste End Sub

Paso 7: Ahora, por fin, permita la aplicación CutCopyMode como FALSE, lo que significa que solo está copiando los datos en lugar de cortarlos también de la celda de referencia.

Código:

 Sub VBAPaste3 () Selection.Copy Range ("D3"). Seleccione Range (Selection, Selection.End (xlUp)). Seleccione Range ("D1: D3"). Seleccione ActiveSheet.Paste Application.CutCopyMode = False End Sub

Paso 8: Antes de ejecutar el código, primero coloca el cursor en la celda B3. Luego compile el código y ejecútelo. Veremos que nuestros datos se copiarán en las celdas D1 a D3.

VBA Paste- Ejemplo # 4

Hay otra forma de usar VBA Paste en una sola línea de código.

Siga los pasos a continuación:

Paso 1: escriba la subcategoría en la secuencia y el nombre de una función realizada.

Código:

 Sub VBAPaste4 () End Sub

Paso 2: Use el comando Hojas de trabajo y seleccione la Hoja donde trabajaremos. Aquí nuestro nombre de hoja es "Hoja1". Podemos usar Workbook.Sheet (1) también para seleccionar "Sheet1" en lugar de esto.

Código:

 Sub VBAPaste4 () Hojas de trabajo ("Hoja1"). End Sub

Paso 3: Seleccione la celda desde donde copiaremos los datos. Aquí nuestra celda de Rango es B3 que tiene los mismos datos que hemos visto en los ejemplos anteriores.

Código:

 Sub VBAPaste4 () Hojas de trabajo ("Hoja1"). Rango ("B3"). End Sub

Paso 4: Ahora inserte el comando Copiar después de un punto (.) Para copiar los datos de la celda Rango seleccionada.

Código:

 Sub VBAPaste4 () Hojas de trabajo ("Hoja1"). Rango ("B3"). Copia Fin Sub

Paso 5: Ahora usa el comando Destino para seleccionar la ubicación donde pegaremos los datos copiados. Para esto, seleccione Hoja de trabajo como "Hoja1", lo que hicimos al comienzo de este ejemplo y seleccione las celdas Rango en cualquier lugar de la misma hoja. Aquí hemos seleccionado celdas de salida de rango de D1 a D3.

Código:

 Sub VBAPaste4 () Hojas de trabajo ("Hoja1"). Rango ("B3"). Destino de copia: = Hojas de trabajo ("Hoja1"). Rango ("D1: D3") Fin Sub

Paso 6: Ahora compila y ejecuta. El texto "Pegar VBA" de la celda B3 se copiará y pegará en las celdas D1 a D3 como se muestra a continuación.

Pros de Excel VBA Paste

  • Aplicar los primeros 2 ejemplos es la forma más fácil y rápida de aplicar VBA Paste.
  • Para grandes datos donde es difícil realizar múltiples actividades, si automatizamos este tipo de función pequeña, eso ahorraría mucho tiempo para hacer cosas manuales.
  • No hay límite de copiar y pegar los datos.

Cosas para recordar

  • Use la subcategoría de tal manera que si está usando múltiples módulos, entonces poner la secuencia en eso facilitará el seguimiento y la elección de la macro correcta.
  • Guarde el archivo de Excel en formato de habilitación de macro para que el código escrito se conserve para la próxima vez que se use.
  • Si está escribiendo varias líneas de código, se recomienda compilar el código línea por línea para encontrar si hay un error.
  • Se recomienda colocar el cursor en la celda B3 si está utilizando el ejemplo-3.

Artículos recomendados

Esta ha sido una guía de VBA Paste. Aquí discutimos VBA Paste y cómo usar Excel VBA Paste junto con ejemplos prácticos y plantilla de Excel descargable. También puede consultar nuestros otros artículos sugeridos:

  1. VBA Match | ¿Cómo utilizar?
  2. Fórmula TRANSPOSE Excel
  3. Gama VBA | Macros fáciles de Excel
  4. Fórmula IF anidada en Excel

Categoría:

VBA