Note: The other languages of the website are Google-translated. Back to English

¿Cómo copiar varias hojas varias veces en Excel?

A veces, es posible que necesitemos hacer una copia o varias copias de hojas de trabajo específicas en un libro de trabajo. Aquí hay algunas formas rápidas de ayudarlo a copiar fácilmente una hoja de trabajo o varias hojas de trabajo varias veces en Excel.


Haga una copia de varias hojas de trabajo una vez en un libro de trabajo activo u otro libro de trabajo con el comando Mover o Copiar

Con la Mover o copiar comando en Excel, puede hacer una copia de una hoja de trabajo, varias hojas de trabajo específicas o todas las hojas de trabajo en un libro activo u otro libro a la vez.

1. En el libro de trabajo determinado donde copiará las hojas de trabajo, seleccione varias hojas de trabajo en la barra de la pestaña Hoja.
Nota:: Sosteniendo CTRL clave, puede seleccionar varias pestañas de hojas no adyacentes haciendo clic en ellas una por una en la barra de pestañas de hojas; participación BASICO , puede seleccionar varias pestañas de hojas adyacentes haciendo clic en la primera pestaña de la hoja y la última en la barra de pestañas de la hoja.

2. Haga clic con el botón derecho en la pestaña de la hoja seleccionada en la barra de pestañas de la hoja y seleccione Mover o copiar desde el menú contextual. Ver captura de pantalla:
doc copiar varias hojas 01

3. En la Mover o copiar cuadro de diálogo, especifique la siguiente configuración:
(1) Especifique el libro de trabajo de destino en el que copiará las hojas de trabajo desde el Reservar la lista desplegable. Puede elegir el libro de trabajo activo, otro libro de trabajo abierto o un nuevo libro de trabajo según lo necesite.
(2) Especifique la posición de las hojas copiadas en la barra de la pestaña Hoja, puede elegir después de todas las hojas existentes.
(3) Comprobar Crea una copia opción, si no marca esta opción, las hojas de trabajo seleccionadas se moverán al libro de trabajo de destino.
(4) Haga clic en el OK

Ahora solo hará una copia de las hojas de trabajo seleccionadas en el libro de trabajo especificado. Para hacer varias copias de estas hojas de trabajo, puede repetir la operación varias veces.

Solo varios clics para hacer varias copias de varias hojas de trabajo en el libro activo

En general, podemos copiar varias hojas de trabajo con el Mover o copiar característica en Excel. Sin embargo, esta función solo puede realizar una copia a la vez. Aquí, con Kutools para Excel Copiar hojas de trabajo utilidad, puede hacer fácilmente tantas copias de muchas hojas de trabajo como necesite en el libro activo con solo varios clics.


copia de anuncios varias hojas de trabajo 01

Kutools for Excel - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Consíguelo ahora

Haga varias copias de una hoja de trabajo especificada en un libro de trabajo activo con código VBA

Si desea hacer 10 copias de una hoja de trabajo especificada, la Mover o copiar El comando será una forma que llevará mucho tiempo y deberá repetir la operación muchas veces. Pero con el siguiente código VBA, puede copiar rápidamente la hoja de trabajo 10 veces a la vez.

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

VBA: haga varias copias de ciertas hojas de trabajo en un libro activo

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Nota:: En el código anterior, reemplace "Sheet1"con el nombre de la hoja a copiar.

3. Entonces presione F5 para ejecutar el código, aparece un cuadro de aviso para preguntarle el número de copias de hojas que desea.

4. Luego haga clic OK, la hoja de trabajo especificada se ha copiado 100 veces en el libro activo.


Haga múltiples copias de varias hojas de trabajo en un libro activo con Kutools para Excel

Aunque es sencillo hacer una copia de varias hojas de trabajo en Excel, si desea hacer varias copias de varias hojas de trabajo en el libro actual, es posible que deba usar el Mover o copiar elemento de comando una y otra vez. ¿Le gustaría hacer todo con un clic? Con el Copiar hojas de trabajo utilidad del complemento de terceros Kutools for Excel, puede hacer varias copias de varias hojas de trabajo con un solo clic en Excel.

Kutools for Excel - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Consíguelo ahora

1. Hacer clic Kutools Más > Copiar hojas de trabajo. Ver captura de pantalla:

Nota:: Haciendo clic Kutools Más > Hoja de trabajo > Copiar hojas de trabajo también obtendrá esta función.

2. Aplicar la configuración en el Copiar varias hojas de trabajo caja de diálogo:
(1) Verifique las hojas de trabajo de las que desea copiar Copiar las hojas de trabajo seleccionadas .
(2) Especifique El número de copias.
(3) Determine la posición de las hojas copiadas, por ejemplo, antes o después de todas las hojas de trabajo, antes o después de la hoja de trabajo actual.
(4) Haga clic en el Ok

3. Aparece un cuadro de aviso para recordarle que las hojas de trabajo marcadas se han copiado varias veces según lo necesite, haga clic en el OK botón para salir. Ver captura de pantalla:

Esta Copiar varias hojas de trabajo característica de Kutools for Excel hará varias copias de varias hojas de trabajo especificadas en el libro activo con solo varios clics. ¡Tenga una prueba gratis!


Haga una copia de varias hojas de trabajo de varios libros de trabajo en una nueva

Si tiene Kutools para Excel instalado, también puede aplicar su Combinar hojas de trabajo función para hacer una copia de varias hojas de trabajo de varios libros cerrados en un nuevo libro con varios clics solo en Excel.

Kutools for Excel - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Consíguelo ahora

1. Hacer clic Kutools Más > Combinar para activar la función Combinar hojas de trabajo.

2. En el asistente Combinar hojas de trabajo: paso 1 de 3, Combine varias hojas de trabajo de libros de trabajo en una sola hoja de trabajo opción, y haga clic en Siguiente botón. Ver captura de pantalla:

3. En el asistente Combinar hojas de trabajo - Paso 2 de 3, haga lo siguiente:
(1) Click Añada > Declarar impuestos or carpeta para agregar libros de trabajo de los que copiará hojas de trabajo.
(2) En el Lista de libros de trabajo sección, consulte el libro cuyas hojas de trabajo copiará;
(3) En el Lista de hojas de trabajo sección, verifique las hojas de trabajo que copiará;
(4) Repita arriba (2) y (3) para seleccionar hojas de trabajo de otros libros que copiará.
(5) Haga clic en el Siguiente

4. En el asistente Combinar hojas de trabajo: paso 3 de 3, configure los ajustes de copia que necesite y haga clic en el Terminar

5. Ahora, en el nuevo cuadro de diálogo, especifique una carpeta de destino para guardar el nuevo libro de trabajo, nombre el nuevo libro de trabajo en el Nombre de archivo caja, y haga clic en a Salvar botón. Ver captura de pantalla:

Ahora aparecerán otros dos cuadros de diálogo y le pedirán que abra el nuevo libro de trabajo y guarde el escenario de combinación, haga clic en los botones que necesite. Hasta ahora, ha copiado todas las hojas de trabajo especificadas de varios libros de trabajo a la vez.

Con este Combinar (hojas de trabajo) utilidad, puede copiar y combinar fácilmente hojas de trabajo y libros de trabajo como se muestra a continuación. ¡Tenga una prueba gratis!
(1) Combine rápidamente varias hojas de trabajo / rangos de libros de trabajo en una sola hoja de trabajo;
(2) Fusionar / combinar rápidamente todas las hojas de trabajo del mismo nombre en los libros de trabajo en una sola hoja de trabajo;
(3) Fusionar / combinar rápidamente hojas de trabajo o libros de trabajo en un libro de trabajo;
(4) Resuma / calcule rápidamente datos de varias hojas de trabajo en una sola hoja de trabajo.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (25)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Usando el código VBA, el nombre de las hojas de trabajo duplicadas está en orden inverso. Digamos que hago 10 copias de la Hoja 1, terminaré con la Hoja 1, la Hoja 1 (10), la Hoja 1 (9), la Hoja 1 (8), ... ¿es posible tenerlas en el orden normal?
Este comentario fue minimizado por el moderador en el sitio
Probé el código VBA y obtuve un error de subíndice fuera de rango (9). Reemplacé el nombre de la hoja con cualquier cosa que se me ocurriera que ya estuviera en el libro de trabajo. ¿Alguna idea de lo que hice mal? Además, ¿hay alguna manera de hacer que nombre cada hoja de forma incremental? Esto encajaría con la pregunta de Michael, estoy seguro. Supongo que la respuesta a su pregunta sería que necesitaría establecer el objetivo Después de "hoja" + x de alguna manera y eso, a su vez, se aplicaría a mi pregunta si hubiera una manera de especificar cómo nombrar la nueva hoja. Siempre podría cambiar el "maestro" de mi jefe a "agosto 0" o el mes que sea, pero sería más fácil para ella entender si el script hiciera el nombre automáticamente.
Este comentario fue minimizado por el moderador en el sitio
gracias, el código vba era enorme
Este comentario fue minimizado por el moderador en el sitio
Wow, gracias por el código VBA. ¡Realmente ayuda mucho!
Este comentario fue minimizado por el moderador en el sitio
[cita]Usando el código VBA, el nombre de las hojas de trabajo duplicadas está en orden inverso. Digamos que hago 10 copias de la Hoja 1, terminaré con la Hoja 1, la Hoja 1 (10), la Hoja 1 (9), la Hoja 1 (8), ... ¿es posible tenerlas en el orden normal?De MichaelTadashi[/quote] ¿Alguien pudo responder esta pregunta? Necesito crear 72 copias, pero sería necesario tenerlas en orden (1 a 72, en lugar de 72 a 1) ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
[cita][cita]Usando el código VBA, el nombre de las hojas de trabajo duplicadas está en orden inverso. Digamos que hago 10 copias de la Hoja 1, terminaré con la Hoja 1, la Hoja 1 (10), la Hoja 1 (9), la Hoja 1 (8), ... ¿es posible tenerlas en el orden normal?por juan[/quote] ¿Alguien pudo responder esta pregunta? Necesito crear 72 copias, pero sería necesario tenerlas en orden (1 a 72, en lugar de 72 a 1) ¡Gracias!De MichaelTadashi[/quote]e] Si desea que las copias de las hojas estén en orden secuencial en lugar de al revés, cambie la siguiente línea... Después:=ActiveWorkbook.Sheets("Hoja1") a esto... Después:=ActiveWorkbook.Sheets(Hojas de trabajo.Cuenta) Mi código completo se parecía al siguiente, que usa 2 indicaciones de InputBox para permitir un recuento de copias dinámico y un nombre de hoja de trabajo. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("¿Cuántas copias necesita?") s = InputBox("Ingrese el nombre de la hoja de trabajo que desea copiar") For numtimes = 1 Para numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Este comentario fue minimizado por el moderador en el sitio
¿Cómo obtengo las copias numeradas de forma continua? Si la hoja que quiero copiar se llama I002, y quiero que la siguiente se llame I003, I004, I005, etc.
Este comentario fue minimizado por el moderador en el sitio
Busque la palabra "Después" y cámbiela a "Antes". Esto creará copias en el orden correcto "Antes" de la Hoja1. Lo único que debe recordar es que la numeración siempre comenzará desde (2) ya que la hoja original siempre se contará como la primera copia. También puede reemplazar "Hoja1" con el nombre de la pestaña que está tratando de copiar.
Este comentario fue minimizado por el moderador en el sitio
sí, funciona, gracias. He realizado con éxito varias copias de una sola hoja de trabajo en el mismo libro de trabajo usando el código vba thnx mucho.
Este comentario fue minimizado por el moderador en el sitio
cómo copiar con el mismo ancho de columna
Este comentario fue minimizado por el moderador en el sitio
¿Los mismos anchos de columna que la hoja de trabajo original o desea que todos los anchos de columna sean iguales?
Este comentario fue minimizado por el moderador en el sitio
Recibí el mismo error que Theou y nadie parece haberlo solucionado. Mis pestañas ya se llaman PO 51, PO 52, etc. y reemplacé la Hoja 1 con PO 51 para copiar eso y obtuve el error de subíndice fuera de rango (9) Seguí el código de Schuyler para obtener el orden correcto, pero aún obtengo el error y siempre se debe a estas dos líneas: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Este comentario fue minimizado por el moderador en el sitio
[cita] Recibí el mismo error que Theou y nadie parece haberlo abordado. Mis pestañas ya se llaman PO 51, PO 52, etc. y reemplacé la Hoja 1 con PO 51 para copiar eso y obtuve el error de subíndice fuera de rango (9) Seguí el código de Schuyler para obtener el orden correcto, pero aún obtengo el error y siempre se debe a estas dos líneas: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)por Debbi[/quote] ¿Puede incluir su código completo para facilitar la depuración? Un "error de subíndice fuera de rango" generalmente significa que el código hace referencia a algo que no existe. Encuentro esto en mi propio código cuando tengo un error tipográfico o algo de esa naturaleza.
Este comentario fue minimizado por el moderador en el sitio
Recibo un error de que 'numtimes' no está definido...?
Este comentario fue minimizado por el moderador en el sitio
¿Dónde insertaré este código anterior en vba? ¿Debería crear un botón común y luego dentro? Saludos.
Este comentario fue minimizado por el moderador en el sitio
Siga los pasos a continuación:
1. Copie el código anterior
2. Mantenga presionadas las teclas ALT + F11 y se abre la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la Ventana del módulo.
4. Luego presione la tecla F5 para ejecutar el código
5.Aparecerá un cuadro de aviso para preguntarle el número de copias de hojas que desea.
Este comentario fue minimizado por el moderador en el sitio
Cuando lo probé por primera vez, recibí el mensaje de error porque no cambié el nombre Sheet1. Después de darme cuenta de la causa del error, investigué un poco más, ya que no quería ingresar manualmente el nombre de la hoja en la macro. Y cuando necesito esta función, casi siempre es para la hoja actual. Agregué la línea a = activesheet.name Y revisé la línea después de:=activeworkbook.sheets("sheet1") a activeworkbook.sheets(a).copy _ Eso funcionó muy bien, pero noté que la numeración estaba invertida... eso no me molestó ya que iba a cambiar manualmente el nombre de las nuevas hojas de todos modos. Cuando vi la publicación de Schuyler, revisé más la línea activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) Ahora estoy satisfecho con el resultado. Mi macro terminada: Subcopias () Dim x As Integer x = InputBox ("Ingrese el número de veces para copiar Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets ("Sheet1").Copy _ After: = ActiveWorkbook.Sheets ( Worksheets.Count) Next End Sub --- Todo lo mejor, Barry
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias Barry. Su macro terminada es lo único que funcionó para mí.
Este comentario fue minimizado por el moderador en el sitio
Recibí un error de sintaxis en "Después:=ActiveWorkbook.Sheets(Worksheets.Count)


pero no sé qué pasa... ¿Puedes ayudarme por favor?
Este comentario fue minimizado por el moderador en el sitio
Fantástico código VBA: realmente ayudó
Este comentario fue minimizado por el moderador en el sitio
Soy nuevo en esto, solo estoy tratando de hacer copias de la misma hoja, este es el código que estoy usando. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("¿Cuántas copias necesita?") s = InputBox("Ingrese el nombre de la hoja de trabajo que desea copiar") For numtimes = 1 a numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub cuando uso el código me da el error "Error de sintaxis", luego este texto se vuelve rojo ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) y el texto se vuelve amarillo Sub Copier(), ¿qué puedo hacer para solucionarlo?
Este comentario fue minimizado por el moderador en el sitio
[cita] Soy nuevo en esto, solo estoy tratando de hacer copias de la misma hoja, este es el código que estoy usando. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("¿Cuántas copias necesita?") s = InputBox("Ingrese el nombre de la hoja de trabajo que desea copiar") For numtimes = 1 a numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub cuando uso el código me da el error "Error de sintaxis", luego este texto se vuelve rojo ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) y el texto se vuelve amarillo Sub Copier(), ¿qué puedo hacer para solucionarlo?Por Tyler Dempsey[/quote] Verifique dos veces su código y asegúrese de que no tenga un espacio en ActiveWorkbook. Hoja(s).Copiar _ o en Hojas(Hojas de trabajo.Cuenta)
Este comentario fue minimizado por el moderador en el sitio
[cita] Soy nuevo en esto, solo estoy tratando de hacer copias de la misma hoja, este es el código que estoy usando. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("¿Cuántas copias necesita?") s = InputBox("Ingrese el nombre de la hoja de trabajo que desea copiar") For numtimes = 1 a numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub cuando uso el código me da el error "Error de sintaxis", luego este texto se vuelve rojo ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) y el texto se vuelve amarillo Sub Copier(), ¿qué puedo hacer para solucionarlo?Por Tyler Dempsey[/quote] Aquí está el código exacto que desea usar: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("¿Cuántas copias necesita?") s = InputBox("Ingrese el nombre de la hoja de trabajo que desea copiar") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Este comentario fue minimizado por el moderador en el sitio
Gracias, el último me salvó la vida :)
Este comentario fue minimizado por el moderador en el sitio
Código de trabajo

Copiadora secundaria()
Dim s como cadena
Dim numtimes como entero
Dim numCopias como entero
numCopies = InputBox("¿Cuántas copias necesita?")
s = InputBox("Ingrese el nombre de la hoja de trabajo que desea copiar")
Para numtimes = 1 Para numCopias
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Siguiente
End Sub

copie toda la línea de ActiveWorkbook.Sheets... ese era el problema, y ​​algunos espacios

Que tengas un gran día
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL