Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Regístrate  \/ 
x

or

¿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 los portapapeles, puede pegar todos los rangos seleccionados en otro rango u hoja de trabajo a la vez. Haz lo siguiente:

1. Hacer clic Inicio > doc copiar varios rangos 09 en el objeto 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. ¡Prueba gratuita de todas las funciones de 30 días!
anuncio combinar hojas libros 1

Kutools for Excel - Incluye más de 300 útiles herramientas para Excel. Prueba gratuita de todas las funciones durante 30 días, ¡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 Corral 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 útiles herramientas para Excel. Prueba gratuita de todas las funciones durante 30 días, ¡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 Ok button. Ver captura de pantalla arriba:

<b>Nota:</b> 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 botão.

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 útiles herramientas para Excel. Prueba gratuita de todas las funciones durante 30 días, ¡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 útiles herramientas para Excel. Prueba gratuita de todas las funciones durante 30 días, ¡no se requiere tarjeta de crédito! CONSÍGUELO AHORA

1. Hacer clic Kutools Plus > 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 Eventos Proximos botão.

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 Buscar botón detrás de cada hoja de trabajo para especificar el rango de cada hoja de trabajo;
(2) Haga clic en el Añadir 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 Acabar botão.

Kutools for Excel - Incluye más de 300 útiles herramientas para Excel. Prueba gratuita de todas las funciones durante 30 días, ¡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-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 2 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 2 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 3 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 3 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 3 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 3 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 6 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 6 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 4 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)