none
Macro - contar grupo RRS feed

  • Pergunta

  • Boa noite

    Poderia me ajudar? Conforme exemplo abaixo, tenho uma planilha que digito diversos valores. Possuo uma macro que coloca estes valores em ordem por linha. Porém, preciso que após as linhas em ordem( do menor valor para o maior ), a macro coloque em ordem de coluna( da sequência menor para a maior, sem mexer na sequência dos números das linhas ) e conte quantos conjuntos são iguais, para detectar duplicidades.

    *Detalhe: a minha planilha possui: Colunas: 15 / Linhas: 3000

    A macro que eu tenho para ordenar as linhas( funciona perfeitamente) é:

    Sub Ordenar_Linha()


        For n = 1 To 15
            For i = 1 To 3000
                For j = 1 To 14
                    If Cells(i, j).Value > Cells(i, j + 1).Value Then
                        Aux = Cells(i, j).Value
                        Cells(i, j).Value = Cells(i, j + 1).Value
                        Cells(i, j + 1).Value = Aux
                     End If
                Next j
            Next i
         Next n

    End Sub

    A macro que eu tenho para ordenar as colunas( mas tira os números da sequência das linhas ) é:

    Sub Ordenar_Coluna()

    Dim i

        For i = 1 To 15
      
            Range(Cells(1, i), Cells((Range("A1").End(xlDown).Rows.Row), i)).Sort _
            Key1:=Cells(1, i), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

     

    Exemplo que eu digito:

     

    353,30 125,90 88,60 354,90 10,65 10,30 21,90 38,65 28,00 965,00 115,15 88,90 65,60 92,30 165,60
    4,85 115,32 88,60 113,70 90,80 80,90 19,20 68,53 82,00 569,00 515,11 89,87 56,65 23,90 16,56
    58,40 235,11 68,80 73,11 80,80 90,80 92,10 35,86 125,70 69,50 115,11 98,78 55,55 66,55 56,61
    62,80 32,25 38,45 22,77 10,00 121,71 112,06 92,46 74,23 94,50 56,35 12,00 10,00 10,21 10,32
    10,48 26,14 101,84 61,40 11,23 10,00 41,40 49,53 18,83 45,73 128,15 101,35 25,64 72,47 71,37
    4,85 115,32 88,60 113,70 90,80 80,90 19,20 68,53 82,00 569,00 515,11 89,87 56,65 23,90 16,56
    33,90 41,69 76,22 51,95 74,05 10,00 26,82 35,10 39,18 10,00 69,01 62,60 90,83 10,00 62,33
    18,08 70,31 125,13 108,26 79,20 17,82 70,36 49,32 37,00 123,64 13,75 11,11 96,04 49,52 19,20
    33,90 41,69 76,22 51,95 74,05 10,00 26,82 35,10 39,18 10,00 69,01 62,60 90,83 10,00 62,33
    41,69 56,35 45,73 39,18 49,32 70,36 11,23 22,77 68,80 115,32 353,30 101,35 98,78 56,65 92,30
    125,90 70,32 125,14 110,26 78,20 18,90 71,36 50,32 115,15 121,64 14,78 13,15 69,04 95,24 65,24
    4,85 115,32 88,60 113,70 90,80 80,90 19,20 68,53 82,00 569,00 515,11 89,87 56,65 23,90 16,56
    62,80 32,25 38,45 22,77 10,00 121,71 112,06 92,46 74,23 94,50 56,35 12,00 10,00 10,21 10,32
    353,30 125,90 88,60 354,90 10,65 10,30 21,90 38,65 28,00 965,00 115,15 88,90 65,60 92,30 165,60
    10,32 10,21 10,00 12,00 56,35 94,50 74,23 92,46 112,06 121,71 10,00 22,77 38,45 32,25 62,80
    18,08 70,31 125,13 108,26 79,20 17,82 70,36 49,32 37,00 123,64 13,75 11,11 96,04 49,52 19,20
    70,31 125,13 79,20 17,82 70,36 49,32 37,00 123,64 13,75 11,11 96,04 49,52 19,20 18,08 108,26
    18,08 70,31 125,13 108,26 79,20 17,82 70,36 49,32 37,00 123,64 13,75 11,11 96,04 49,52 19,20

    Exemplo que eu preciso:

     

    A B C D E F G H I J K L M N O  
    4,85 16,56 19,20 23,90 56,65 68,53 80,90 82,00 88,60 89,87 90,80 113,70 115,32 515,11 569,00 03
    4,85 16,56 19,20 23,90 56,65 68,53 80,90 82,00 88,60 89,87 90,80 113,70 115,32 515,11 569,00
    4,85 16,56 19,20 23,90 56,65 68,53 80,90 82,00 88,60 89,87 90,80 113,70 115,32 515,11 569,00
    10,00 10,00 10,00 26,82 33,90 35,10 39,18 41,69 51,95 62,33 62,60 69,01 74,05 76,22 90,83  
    10,00 10,00 10,00 26,82 33,90 35,10 39,18 41,69 51,95 62,33 62,60 69,01 74,05 76,22 90,83  
    10,00 10,00 10,21 10,32 12,00 22,77 32,25 38,45 56,35 62,80 74,23 92,46 94,50 112,06 121,71 03
    10,00 10,00 10,21 10,32 12,00 22,77 32,25 38,45 56,35 62,80 74,23 92,46 94,50 112,06 121,71
    10,00 10,00 10,21 10,32 12,00 22,77 32,25 38,45 56,35 62,80 74,23 92,46 94,50 112,06 121,71  
    10,00 10,48 11,23 18,83 25,64 26,14 41,40 45,73 49,53 61,40 71,37 72,47 101,35 101,84 128,15  
    10,30 10,65 21,90 28,00 38,65 65,60 88,60 88,90 92,30 115,15 125,90 165,60 353,30 354,90 965,00 02
    10,30 10,65 21,90 28,00 38,65 65,60 88,60 88,90 92,30 115,15 125,90 165,60 353,30 354,90 965,00
    11,11 13,75 17,82 18,08 19,20 37,00 49,32 49,52 70,31 70,36 79,20 96,04 108,26 123,64 125,13

     

    11,11 13,75 17,82 18,08 19,20 37,00 49,32 49,52 70,31 70,36 79,20 96,04 108,26 123,64 125,13 04
    11,11 13,75 17,82 18,08 19,20 37,00 49,32 49,52 70,31 70,36 79,20 96,04 108,26 123,64 125,13
    11,11 13,75 17,82 18,08 19,20 37,00 49,32 49,52 70,31 70,36 79,20 96,04 108,26 123,64 125,13
    11,23 22,77 39,18 41,69 45,73 49,32 56,35 56,65 68,80 70,36 92,30 98,78 101,35 115,32 353,30  
    13,15 14,78 18,90 50,32 65,24 69,04 70,32 71,36 78,20 95,24 110,26 115,15 121,64 125,14 125,90  
    35,86 55,55 56,61 58,40 66,55 68,80 69,50 73,11 80,80 90,80 92,10 98,78 115,11 125,70 235,11
    terça-feira, 30 de agosto de 2011 03:42