Exibindo apenas categorias onde os valores estão acima de determinado nível

Question

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.

Answer 1

Que tal usar o Power Query para obter o resultado?

Vá para DADOS- Da Tabela/Dados- Filtro- Fechar e carregar:

Answer 2

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".

Answer 3

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.

Answer 4

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!