Gnostico Posted September 19, 2020 Share Posted September 19, 2020 Por gentileza algum membro tem planilha pronta ou fórmula para eliminar dezenas no Excel.. EX: 01 02 04 07 10 15 16 17 18 19 20 21 22 23 25 - eliminar só as pares ou só as ímpares. Grato, Gnostico. Quote Link to comment Share on other sites More sharing options...
Pataca Posted September 19, 2020 Share Posted September 19, 2020 3 horas atrás, Gnostico disse: Por gentileza algum membro tem planilha pronta ou fórmula para eliminar dezenas no Excel.. EX: 01 02 04 07 10 15 16 17 18 19 20 21 22 23 25 - eliminar só as pares ou só as ímpares. Grato, Gnostico. @Gnostico A sua versão do Excel é superior a 2007? 1 Quote Link to comment Share on other sites More sharing options...
Pataca Posted September 19, 2020 Share Posted September 19, 2020 @Gnostico Eu utilizo esta fórmula nas minhas planilhas 3 Quote Link to comment Share on other sites More sharing options...
Gnostico Posted September 19, 2020 Author Share Posted September 19, 2020 @Pataca é 2007,estou fazendo um estudo 7p8i, esse é de 2020 quero ver o parâmetro dos outros anos, pois as pares pode repetir as ímpares não , poucos jogos para acompanhar . 1 Quote Link to comment Share on other sites More sharing options...
Pataca Posted September 19, 2020 Share Posted September 19, 2020 @Gnostico 1º Fórmula números pares e 2º Fórmula números ímpares. Acredito que na sua versão vai funcionar. 3 Quote Link to comment Share on other sites More sharing options...
Substantivo Posted September 20, 2020 Share Posted September 20, 2020 A macro abaixo elimina as pares de um sequencia de números. Sub Deletar_numeros_pares() For i = 1 To [A1].CurrentRegion.Rows.Count For j = 1 To Cells(i, 1).CurrentRegion.Columns.Count If Cells(i, j).Value Mod 2 = 0 Then Cells(i, j).Delete xlToLeft End If Next Next End Sub Esta outra usando o mesmo principio elimina as impares. Sub Deletar_numeros_impares() For i = 1 To [A1].CurrentRegion.Rows.Count For j = 1 To Cells(i, 1).CurrentRegion.Columns.Count If Cells(i, j).Value Mod 1 = 0 Then Cells(i, j).Delete xlToLeft End If Next Next End Sub Fonte; Saberexcel 3 Quote Link to comment Share on other sites More sharing options...
Gnostico Posted September 21, 2020 Author Share Posted September 21, 2020 @Pataca e @Substantivo muito obrigado,resolvido o que eu precisava. 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.