Excel: Tüm hücre değerlerini bir sayfanın tamamından yeni bir sayfaya kopyalayın, tek bir benzersiz değer listesine sıralayın ve tekilleştirin

Sahip olduğum veriler (tüm metin değerleri), kağıda dağılmıştır (aralarında boşluk bulunan birden çok satır ve sütun) ve tümü formül kullanılarak hesaplanır

şimdi kesin hesaplanmış değerler listesinin tam olarak ne olduğunu bildiğimden emin olmak istiyorum.

işte yapmam gerekenler burada

• kopya sadece değerler yeni bir sayfaya
• tek bir liste halinde düzenlemek (sütun)
• sıralama ve çoğaltma

Böyle bir şey deneyin:

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