Como copiar dados para outra planilha com Filtro Avançado no Excel?
Normalmente, podemos aplicar rapidamente o Filtro avançado recurso para extrair dados dos dados brutos na mesma planilha. Mas, às vezes, ao tentar copiar o resultado filtrado para outra planilha, você receberá a seguinte mensagem de aviso. Nesse caso, como você lidaria com essa tarefa no Excel?
Copie os dados para outra planilha com Filtro Avançado usando o recurso Filtro Avançado
Copie os dados para outra planilha com Filtro Avançado usando código VBA
Copie os dados para outra planilha com Filtro Avançado usando o recurso Filtro Avançado
Aqui está uma solução alternativa simples para você resolver este trabalho, faça o seguinte:
1. Ative a planilha na qual deseja copiar o resultado filtrado usando a função Filtro avançado.
2. Então clique Data > Avançado, veja a captura de tela:
3. No Filtro avançado caixa de diálogo, selecione Copiar para outro local do Açao Social seção e clique em botão para selecionar o intervalo de dados que você deseja filtrar em outra folha ao lado do Intervalo de listacontinue clicando botão ao lado do Intervalo de critérios para selecionar os critérios de outra planilha, veja a captura de tela:
4. Então clique botão ao lado do Copiar para para selecionar uma célula onde deseja produzir o resultado filtrado da planilha ativa e, a seguir, clique OK botão, o resultado filtrado foi extraído para outra planilha com base em sua planilha de dados original.
Copie os dados para outra planilha com Filtro Avançado usando código VBA
Se você tiver habilidade com o código VBA, poderá concluir este trabalho com o seguinte código VBA.
1. Ative a planilha que deseja filtrar e copie o resultado para outra planilha.
2. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: copie os dados para outra planilha com filtro avançado:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. E, em seguida, pressione F5 para executar este código, e uma caixa de prompt é exibida para permitir que você selecione o intervalo de dados que deseja filtrar, consulte a captura de tela:
5. Então clique OK, e outra caixa de diálogo é exibida para lembrá-lo de selecionar o intervalo de critérios no qual deseja filtrar, consulte a captura de tela:
6. Continue clicando OK, na caixa de diálogo exibida, selecione uma célula de outra nova planilha onde você deseja produzir o resultado do filtro, consulte a captura de tela:
7. Finalmente, clique em OK botão, os dados filtrados foram enviados para outra planilha especificada conforme necessário.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!