Excel: Alle Zellenwerte aus einem gesamten Blatt in ein neues Blatt kopieren, sortieren und deduplizieren in eine einzige Liste eindeutiger Werte

Question

Die Daten (alle Textwerte), die ich habe, sind über das Blatt verstreut (mehrere Zeilen und Spalten mit Lücken dazwischen) und werden alle mithilfe von Formeln berechnet

jetzt möchte ich sicherstellen, dass ich die genaue Liste der unterschiedlichen berechneten Werte kenne

also hier ist, was ich tun muss

• Kopierennur Werteauf ein neues Blatt
• in einer einzigen Liste (Spalte) organisieren
• Sortieren und Deduplizieren

Answer 1

Probieren Sie so etwas aus:

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