Excel: Copie todos os valores de célula de uma folha inteira para uma nova folha, classifique e desduplique em uma única lista de valores exclusivos

0

Os dados (todos os valores de texto) que eu tenho estão espalhados pela planilha (várias linhas e colunas com lacunas no meio) e tudo é calculado usando fórmulas

agora eu gostaria de ter certeza de que eu sei qual é a lista exata de valores calculados distintos

então aqui está o que eu preciso fazer

  • copie valores somente para uma nova planilha
  • organize em uma única lista (coluna)
  • classificar e desduplicar
por adolf garlic 09.12.2015 / 15:32

1 resposta

1

Tente algo assim:

Sub Garlic()
   Dim cl As Collection, sh1 As Worksheet, sh2 As Worksheet
   Dim r As Range, K As Long, v As Variant, i As Long
   Set cl = New Collection
   Set sh1 = Sheets("Sheet1")
   Set sh2 = Sheets("Sheet2")
   K = 1

   On Error Resume Next
      For Each r In sh1.UsedRange
         v = r.Value
         If v <> "" Then
            cl.Add v, CStr(v)
         End If
      Next r
   On Error GoTo 0

   For i = 1 To cl.Count
      sh2.Cells(K, 1).Value = cl.Item(i)
      K = K + 1
   Next i

   sh2.Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub
    
por 09.12.2015 / 16:48