Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como copiar várias seleções ou intervalos no Excel?

Por exemplo, você tem uma planilha grande e agora deseja apenas copiar alguns intervalos selecionados e distribuí-la para outras planilhas. Mas quando você seleciona os vários intervalos e clica em copiar, haverá uma caixa de diálogo de prompt para lembrá-lo “Esse comando não pode ser usado em várias seleções”. Nessa condição, como você copia rapidamente vários intervalos selecionados? Aqui estão alguns truques para você resolver essa tarefa.


Copie vários intervalos selecionados com a área de transferência

Com a ajuda de prancheta, você pode colar todos os intervalos selecionados em outro intervalo ou planilha de uma vez. Faça o seguinte:

1. Clique Página Inicial > doc copiar vários intervalos 09 no prancheta grupo para exibir o prancheta Pão.. Veja a imagem:

2. Em seguida, copie os intervalos selecionados de que você precisa, um por um. Ao mesmo tempo, os intervalos copiados foram exibidos no prancheta Pão. veja a imagem acima:

3. Selecione a primeira célula do intervalo de destino em que você colará todos os intervalos copiados e clique em Colar tudo botão no prancheta Painel.

E então todos os intervalos copiados foram colados no intervalo de destino especificado.

Combine facilmente várias seleções de muitas planilhas / pastas de trabalho em uma única planilha / pasta de trabalho

Pode ser tedioso combinar dezenas de planilhas de pastas de trabalho diferentes em uma única planilha. Mas com Kutools para Excel's Combine (planilhas e pastas de trabalho) utilitário, você pode fazer isso com apenas alguns cliques! Avaliação gratuita de recursos completos por 30 dias!
anúncio combinar folhas livros 1

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito completo por 30 dias, sem necessidade de cartão de crédito! Get It Now

Copie vários intervalos selecionados com o código VBA

Com o código VBA, você também pode copiar vários intervalos selecionados e colá-los em qualquer outra planilha.

1. Segurando o Ctrl e selecione vários intervalos não adjacentes que deseja usar.

2. pressione outro + F11 chaves ao mesmo tempo para abrir o Microsoft Visual Basic para aplicativos janela, clique em inserção > Móduloe insira o seguinte código no módulo:

Option Explicit Sub CopyMultipleSelection () 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 'Sair se um intervalo não for selecionado If TypeName (Selection) <> "Range" Then MsgBox "Selecione o intervalo a ser copiado. Uma seleção múltipla é permitida." Exit Sub End If 'Armazena as áreas como objetos Range separados NumAreas = Selection.Areas.Count ReDim SelAreas (1 Para NumAreas) For i = 1 Para NumAreas Defina SelAreas (i) = Selection.Areas (i) Next' Determine o canto superior esquerdo célula na seleção múltipla TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 Para 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) 'Obtenha o endereço de colagem On Error Resume Next Set PasteRange = Application.InputBox _ (Prompt: = "Especifique a célula superior esquerda para a pasta range: ", _ Title: =" Copy Multiple Selection ", _ Type: = 8) On Error GoTo 0 'Exit if cancelled If TypeName (PasteRange) <>" Range "Then Exit Sub' Certifique-se de que apenas a célula superior esquerda é usado Set PasteRange = PasteRange.Range ("A1") 'Verificar intervalo de colagem para dados 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, _ ColOffset + SelA (i) .Columns.Count - 1))) Próximo i 'Se o intervalo de colagem não estiver vazio, avisa o usuário If NonEmptyCellCount <> 0 Then _ If MsgBox ("Overwrite existing data?", vbQuestion + vbYesNo, _ "Copiar Seleção Múltipla ") <> vbYes Then Exit Sub 'Copiar e colar cada área de i = 1 para NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Next i End Sub

3. Em seguida, clique no botão Corrida botão para executar o código.

4. E agora especifique uma célula para colar os intervalos na abertura Copiar Seleção Múltipla caixa de diálogo e clique no OK botão. Veja a imagem:


Copie rapidamente vários intervalos selecionados de uma planilha

O Copiar vários intervalos utilidade de Kutools for Excel pode ajudá-lo a copiar facilmente vários intervalos da planilha ativa. Faça o seguinte:

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito completo por 30 dias, sem necessidade de cartão de crédito! Get It Now

1. Selecione os intervalos que deseja usar um por um, sem segurar o Ctrl chave e clique em Kutools > Copiar intervalos. Veja a imagem:

2. No Copiar vários intervalos caixa de diálogo, verifique Todos opção de Colar especial seção e clique no Ok button. Veja a imagem acima:

Observação: Se você deseja manter a altura da linha e largura da coluna como os intervalos originais, verifique Incluindo altura da linha opção e Incluindo a largura da coluna opção na caixa de diálogo Copiar intervalos múltiplos.

3. E especifique uma célula para colar os intervalos na seguinte caixa de prompt e clique no OK botão.

E agora todos os intervalos selecionados serão colados na célula especificada com a mesma altura de linha e largura de coluna das seleções originais.

Clique aqui para obter mais informações sobre o utilitário Copy Multiple Ranges       

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito completo por 30 dias, sem necessidade de cartão de crédito! Get It Now


Copie vários intervalos de muitas planilhas / pastas de trabalho

Kutools para Excel oferece outro Combinar planilhas utilitário para copiar vários intervalos de muitas planilhas ou pasta de trabalho facilmente no Excel. Faça o seguinte:

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito completo por 30 dias, sem necessidade de cartão de crédito! Get It Now

1. Clique Kutools Plus > Combinar.

2. Na caixa de diálogo Combinar Planilhas - Etapa 1 de 3 de abertura, verifique o Combine várias planilhas da pasta de trabalho em uma planilha opção, e clique no botão Próximo botão.

3. Na caixa de diálogo Combinar Planilhas - Etapa 2 de 3, faça o seguinte:

(1) Selecione a pasta de trabalho no Lista de cadernos seção e, em seguida, clique no procurar botão atrás de cada planilha para especificar o intervalo de cada planilha;
(2) Clique no Adicionar para adicionar outras pastas de trabalho das quais você copiará os intervalos e, a seguir, repita o procedimento acima (1) para especificar as faixas na pasta de trabalho adicionada.
(3) Clique no Terminar botão.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito completo por 30 dias, sem necessidade de cartão de crédito! Get It Now

4. Em seguida, uma caixa de diálogo Kutools para excel aparece e pede para salvar o cenário de combinação. Por favor clique no Sim botão ou Não botão conforme você precisa.

Até agora, todos os intervalos especificados de várias planilhas ou pastas de trabalho foram copiados e colados em uma nova pasta de trabalho.


Demonstração: Copie vários intervalos selecionados de uma planilha

Demonstração: Copie vários intervalos selecionados de muitas pastas de trabalho / planilhas


Kutools for Excel inclui mais de 300 ferramentas úteis para Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
officetab bottom
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.)