Guru do Excel e Power BI

Bom Dia!

Preciso de uma ajuda para:
(1) Ordenar cada linha de várias sequências numéricas em ordem crescente;
(2) Classificar todas as sequencias numéricas em ordem crescente.

Exemplo:

Séries originais:
1 3 4 5 6 7 9 10 11 12 13 15 16 17 18
20 18 5 1 3 23 4 10 21 2 19 12 11 24
16 5 17 2 4 15 19 24 7 1 18 21 3 11 20
16 12 1 25 6 13 11 22 2 21 23 10 19 5 20
10 12 16 6 1 13 2 3 18 5 8 21 24 11 20
11 17 24 16 9 1 25 6 14 12 15 7 4 10 19
7 10 3 23 13 15 4 5 16 22 21 6 20 20 17
5 17 22 16 23 19 4 20 1 3 2 25 7 11 10

Após a classificação de cada sequencia numérica:
1 3 4 5 6 7 9 10 11 12 13 15 16 17 18
1 2 3 4 5 7 10 11 12 18 19 20 21 23 24
1 2 3 4 5 7 11 15 16 17 18 19 20 21 24
1 2 5 6 10 11 12 13 16 19 20 21 22 23 25
1 2 3 5 6 8 10 11 12 13 16 18 20 21 24
1 4 6 7 9 10 11 12 14 15 16 17 19 24 25
3 4 5 6 7 10 13 15 16 17 20 20 21 22 23
1 2 3 4 5 7 10 11 16 17 19 20 22 23 25

Após a classificação em ordem crescente das sequências numéricas:
1 2 3 4 5 7 10 11 12 18 19 20 21 23 24
1 2 3 4 5 7 10 11 16 17 19 20 22 23 25
1 2 3 4 5 7 11 15 16 17 18 19 20 21 24
1 2 3 5 6 8 10 11 12 13 16 18 20 21 24
1 2 5 6 10 11 12 13 16 19 20 21 22 23 25
1 3 4 5 6 7 9 10 11 12 13 15 16 17 18
1 4 6 7 9 10 11 12 14 15 16 17 19 24 25
3 4 5 6 7 10 13 15 16 17 20 20 21 22 23

Grata.

Rebeca, Boa Tarde

Como você não postou um modelo, pergunto, cada numero esta numa coluna ou estão como texto único

Poste um modelo

Decio

Segue uma solução via macro. Arquivo anexo já com os números e o código instalado.

Código: Selecionar todos

Sub OrdenaLinhas()
 Dim k As Long, LR As Long
  LR = Cells(Rows.Count, 1).End(3).Row
  For k = 1 To LR
   Cells(k, 1).Resize(, 15).Sort Key1:=Cells(k, 1), Order1:=xlAscending, Orientation:=xlLeftToRight
  Next k
  With ActiveSheet.Sort
   With .SortFields
    .Clear
    .Add Key:=Range("A1:A" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("B1:B" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("C1:C" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("D1:D" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("E1:E" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("F1:F" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("G1:G" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("H1:H" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("I1:I" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("J1:J" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("K1:K" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("L1:L" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("M1:M" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("N1:N" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Add Key:=Range("O1:O" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   End With
     .SetRange Range("A1:O" & LR)
     .Header = xlNo
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
  End With
End Sub

Nossa, grata!
Vou testar!

Guru do Excel e Power BI

Ordenação e classificação de várias sequências numéricas

Ordenação e classificação de várias sequências numéricas

Re: Ordenação e classificação de várias sequências numéricas

Re: Ordenação e classificação de várias sequências numéricas

Re: Ordenação e classificação de várias sequências numéricas