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

¿Cómo copiar múltiples selecciones o rangos en Excel?

Por ejemplo, tiene una hoja de trabajo grande y ahora solo desea copiar algunos rangos seleccionados y distribuirlos a otras hojas de trabajo. Pero cuando seleccione los rangos múltiples y haga clic en copiar, aparecerá un cuadro de diálogo que le recordará "Ese comando no se puede usar en selecciones múltiples". En esta condición, ¿cómo se copian rápidamente varios rangos seleccionados? Aquí tienes algunos trucos para que resuelvas esta tarea.


Copie varios rangos seleccionados con el Portapapeles

Con la ayuda de portapapeles, puede pegar todos los rangos seleccionados en otro rango u hoja de trabajo a la vez. Haz lo siguiente:

1. Hacer clic Home > doc copiar varios rangos 09 en el capítulo respecto a la portapapeles grupo para mostrar el portapapeles Pan.. Ver captura de pantalla:

2. Y luego copie los rangos seleccionados que necesita uno por uno. Al mismo tiempo, los rangos copiados han aparecido en el portapapeles Pan. ver captura de pantalla arriba:

3. Seleccione la primera celda del rango de destino donde pegará todos los rangos copiados y haga clic en Pegar todo botón en el portapapeles Cristal.

Y luego, todos los rangos copiados se han pegado en el rango de destino especificado.

Combine fácilmente múltiples selecciones de muchas hojas de trabajo / libros de trabajo en una sola hoja de trabajo / libro de trabajo

Puede resultar tedioso combinar docenas de hojas de diferentes libros de trabajo en una sola hoja. Pero con Kutools para Excel Combinar (hojas de trabajo y libros de trabajo) utilidad, puede hacerlo con solo varios clics.


anuncio combinar hojas libros 1

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

Copie varios rangos seleccionados con código VBA

Con el código VBA, también puede copiar varios rangos seleccionados y pegarlos en cualquier otra hoja de trabajo.

1. Sosteniendo el Ctrl y seleccione varios rangos no adyacentes que desee utilizar.

2. prensa otro + F11 llaves al mismo tiempo para abrir el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Móduloe ingrese el siguiente código en el módulo:

Opción Subcopia explícitaMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer 'Exit si no se selecciona un rango If TypeName (Selection) <> "Range" Then MsgBox "Seleccione el rango a copiar. Se permite una selección múltiple". Exit Sub End If 'Almacenar las áreas como objetos Range separados NumAreas = Selection.Areas.Count ReDim SelAreas (1 to NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Determine la parte superior izquierda celda en la selección múltiple TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas (i) .Row <TopRow Then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Then LeftCol = SelAreas (i) .Column Next Set UpperLeft = Cells (TopRow, LeftCol) 'Obtener la dirección de pegado en caso de error Reanudar siguiente Establecer PasteRange = Application.InputBox _ (Prompt: = "Especifique la celda superior izquierda para pegar rango: ", _ Título: =" Copiar selección múltiple ", _ Tipo: = 8) En caso de error Ir a 0 'Salir si se cancela Si TypeName (PasteRange) <>" Rango "Entonces salir de Sub' Asegúrese de que solo la celda superior izquierda esté usado Establecer PasteRange = PasteRange.Range ("A1") 'Verificar el rango de pegado para los datos existentes NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Areas (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColreasOffset + SelA (i) .Columns.Count - 1))) Siguiente i 'Si el rango de pegado no está vacío, advertir al usuario If NonEmptyCellCount <> 0 Then _ If MsgBox ("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copy Multiple Selection ") <> vbYes Luego Salir de Sub 'Copie y pegue cada área para i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Siguiente i End Sub

3. Luego haz clic en Ejecutar botón para ejecutar el código.

4. Y ahora especifique una celda para pegar los rangos en la apertura Copiar selección múltiple cuadro de diálogo y haga clic en el OK botón. Ver captura de pantalla:


Copie rápidamente varios rangos seleccionados de una hoja de trabajo

El Copiar varios rangos utilidad de Kutools for Excel puede ayudarlo a copiar rápidamente múltiples rangos de la hoja de trabajo activa. Por favor haga lo siguiente:

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. Seleccione los rangos que desea usar uno por uno sin mantener presionado el Ctrl clave y luego haga clic en Kutools > Copiar rangos. Ver captura de pantalla:

2. En la Copiar varios rangos cuadro de diálogo, comprobar Todos opción de Pegado especial sección, y haga clic en bien segundoutton. Ver captura de pantalla arriba:

Nota: Si desea mantener la altura de la fila y el ancho de la columna como los rangos originales, verifique Incluyendo la altura de la fila opción y Incluyendo el ancho de la columna en el cuadro de diálogo Copiar varios rangos.

3. Y especifique una celda para pegar los rangos en el siguiente cuadro de aviso, y haga clic en el OK

Y ahora todos los rangos seleccionados se pegarán en la celda especificada con la misma altura de fila y ancho de columna que las selecciones originales.

Haga clic aquí para obtener más información sobre la utilidad Copiar rangos múltiples       

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


Copie varios rangos de muchas hojas de trabajo / libros de trabajo

Kutools para Excel proporciona otro Combinar hojas de trabajo utilidad para copiar múltiples rangos de muchas hojas de trabajo o muchos libros de trabajo fácilmente en Excel. Por favor haga lo siguiente:

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 en Kutools Más > Combinar.

2. En el cuadro de diálogo Abrir Combine Worksheets - Step 1 of 3, marque la casilla Combine varias hojas de trabajo del libro de trabajo en una sola hoja de trabajo opción, y haga clic en Siguiente

3. En el cuadro de diálogo Combinar hojas de trabajo - Paso 2 de 3, haga lo siguiente:

(1) Seleccione el libro de trabajo en el Lista de libros de trabajo sección, y luego haga clic en el Búsqueda de botón detrás de cada hoja de trabajo para especificar el rango de cada hoja de trabajo;
(2) Haga clic en el Añada para agregar otros libros de trabajo de los que copiará rangos, y luego repita arriba (1) para especificar rangos en el libro de trabajo agregado.
(3) Haga clic en el Terminar

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

4. Luego aparece un cuadro de diálogo Kutools para excel y solicita guardar el escenario de combinación. Haga clic en el botón o No botón que necesite.

Hasta ahora, todos los rangos especificados de varias hojas de trabajo o libros de trabajo se han copiado y pegado en un nuevo libro de trabajo.


Demostración: copie varios rangos seleccionados de una hoja de trabajo

Demostración: copie varios rangos seleccionados de muchos libros / hojas de trabajo


Kutools for Excel incluye más de 300 útiles herramientas para Excel, gratis para probar sin limitación en 30 días. Descarga y prueba gratis ahora!

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 (14)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Quiero seleccionar las filas como 1, 5,6,10. Entonces, ¿cómo puedo copiar estas filas?
Este comentario fue minimizado por el moderador en el sitio
En este caso, puede simplemente seleccionar las filas y copiarlas como de costumbre.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo copiar las celdas a1, e5, g2, etc.... (más de 1000 celdas en la misma columna) y pegarlas en b1, f5, h2 (a la derecha en la siguiente columna en la misma fila)?
Este comentario fue minimizado por el moderador en el sitio
Encontrado arriba, la explicación de las opciones para copiar múltiples rangos es muy útil. ¡Gracias! Usé la opción 'portapapeles' para copiar varias filas. Tuve que seleccionar cada grupo de filas consecutivas y copiarlo, seguir adelante y seleccionar la siguiente fila o grupo de filas consecutivas y copiarlo, etc. y haga clic en 'Pegar todo' desde el Portapapeles y todas las filas se copiarán allí sin espacios. Exactamente lo que quería, ¡gracias de nuevo!
Este comentario fue minimizado por el moderador en el sitio
MUCHAS gracias - que gran sitio
Este comentario fue minimizado por el moderador en el sitio
Descubrí que si tiene abierto el plano de tareas del Portapapeles, puede copiar varias filas simplemente usando ctrl+C y pegarlas en orden con crtl+V usando Excel 2007.
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿es posible ajustar el código para que las celdas copiadas se peguen en otra hoja? Ahora recibo el mensaje de error "400" cuando intento esto. Uso Office 2010. Además, ¿es posible copiar para que se eliminen las líneas vacías? Tengo un documento grande y copio algunas celdas con cientos de filas no copiadas entre ellas. Esto hace que la salida sea bastante voluminosa.
Este comentario fue minimizado por el moderador en el sitio
Gracias por el código, funciona perfectamente. Esta extraña falta de función dentro de Excel me ha dejado perplejo muchas veces en el pasado. Al final, normalmente es más rápido solucionarlo, pero en este caso tengo 4000 celdas codificadas por colores individualmente, por lo que cualquier solución habría llevado mucho tiempo, por lo que estoy muy agradecido. Steve
Este comentario fue minimizado por el moderador en el sitio
¡Hola! ¿Cómo uso el mismo código VBA anterior, pero en lugar de simplemente pegarlo, me gustaría que se pegue de forma especial solo para los valores? La tabla en la que estoy poniendo los valores (constantes) ya está formateada y con totales (fórmulas)
Muchas gracias de antemano!
Este comentario fue minimizado por el moderador en el sitio
Hola Katrina Manahan,

Abra la ventana de Microsoft Visual Basic para aplicaciones y cree un nuevo Módulo, simplemente presione CTRL + V para pegar el código VBA directamente. Los números de secuencia antes del código no se pegarán.
Este comentario fue minimizado por el moderador en el sitio
Hola. Buen código, funciona muy bien. ¿Es posible modificar el código de tal manera que sea posible insertar/pegar la fila/los rangos del mercado varias veces en lugar de una sola vez?
Este comentario fue minimizado por el moderador en el sitio
Hola jacob
Tal vez esta función Insertar filas de títulos de Kutools for Excel pueda resolver su problema.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
Este comentario fue minimizado por el moderador en el sitio
Hola,
Gran publicación y el código VBA funciona perfectamente. ¿Es posible cambiar el código para pegar valores > especiales? ¿Si es así, cómo?
¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Hola,
Gran código, pero me preguntaba cómo puedo pegar valores en lugar de simplemente pegar.
Gracias :)
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

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