Eu tenho uma saída onde a quantidade é filtrada em ordem decrescente.
Só quero saber se existe uma maneira de exibir linhas com valores iguais ou superiores a 100K, excluindo os dados inferiores a 100K.
Meus dados de exemplo:
Name | Amount
Person 1 | 500,000
Person 2 | 400,000
Person 3 | 350,000
Person 4 | 200,000
Person 5 | 150,000
Person 6 | 90,000
Person 7 | 80,000
...
Saída desejada:
Name | Amount
Person 1 | 500,000
Person 2 | 400,000
Person 3 | 350,000
Person 4 | 200,000
Person 5 | 150,000
Não sei como codificar ou adicionar uma condição para isso.
Responder1
Responder2
O que você descreve pode ser conseguido ativando o Filtro Automático ou transformando os dados em um objeto Tabela do Excel, selecionando a respectiva configuração de filtro e, em seguida, classificando os dados. Se houver mais dados adicionados à lista, o filtro e a classificação deverão ser repetidos.
Se quiser que o filtro e a classificação sejam aplicados automaticamente, você pode usar o Power Query para carregar os dados, executar o filtro e a classificação no Power Query e carregar o resultado em uma planilha diferente. Se houver mais dados adicionados à lista original, você poderá simplesmente atualizar o Power Query. Isso não requer VBA e a pasta de trabalho não precisa ser habilitada para macro.
O Power Query está disponível como um complemento gratuito para Excel 2010 e 2013 e está integrado na faixa de dados de versões posteriores como "Obter e Transformar".
Responder3
Sub FilterAndCopy()
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("Select Range To Filter:", "Filter Range", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Select Criteria range:", "Filter Range", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Select Output Range:", "Filter Range", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
Como funciona:
- cópia de&Colareste código como Módulo Padrão.
- Escreva critérios (para filtrar dados) em uma célula (conforme mostrado na captura de tela).
Observação:
Ao selecionarCritérioselecione Ambos, Cabeçalho da coluna (na captura de tela éDados) e a célula abaixo (>100.000).
- CORRERa Macro.
- ResponderCaixa de entradae terminar comOK.
Responder4
Outra abordagem simples, além das já mencionadas, é utilizar uma fórmula rápida em uma coluna auxiliar. Isso não requer nenhum código ou instalação de plug-ins adicionais. Coloque a seguinte fórmula na célula C2 para isolar os valores acima de 100k e clique duas vezes na alça no canto inferior direito da célula para preencher automaticamente o restante da coluna.
=IF(B2>100000,"Yes","No")
Você pode então usar o Filtro do Excel e desmarcar “Não” na coluna C, ficando apenas com os dados que deseja!