各データを1データづつ抜きだしたい

Question

9096　9096　9096　9096
9096　9097　9097　9097
9097　9098　9099　9099
9099　9099　9100　9100
9100　9100　9100　9100
9101　9101　9101　9102
9102　9102　9102　9102
9102　9102　9102　9102
9103　9103
このデータを
9096
9097
9098
9099
9100
9101
9102
9103
といった風に各データを一つづつ抜き取りたいんですけど
何かいい方法内でしょうか

ws1.Range(ws1.Cells(A, B), ws1.Cells(C, D)).RemoveDuplicates Columns:=1, Header:=xlNo

一度張り付けて削除の方法は仕様してみたのですが本来はかなりのデータ量なので更新が重いです
よろしければお願いします

Answer 1

たとえばこんな感じでどうでしょうか。

Sub sample()
    Dim ws1 As Worksheet
   'Set ws1 = ActiveSheet
    
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    Dim c As Range
    For Each c In ws1.UsedRange.SpecialCells(xlCellTypeConstants)
        dic(c.Value) = 0
    Next
    
    ws1.Cells.ClearContents
    
    Dim arr, i
    arr = dic.Keys
    For i = 0 To UBound(arr)
        ws1.Cells(i + 1, 1).Value = arr(i)
    Next
End Sub