列内のそれぞれの一意の値からワークシートを作成するVBAコードを記述する方法は？

Question

私は1つのポイントに属するエントリをフィルタリングしたい大きなデータテーブルを持っています。 私はすべてのポイントが混在する列を持っています。 私の質問は、列内のすべての一意の値を検索し、一意の値の後に名前が付けられたワークシートを作成するマクロを作成する方法です。

私は、各サイクルのために試みたが、それを動作させることはできません。

Answer 1

Sub test() 
Dim dict As Object 
Dim ws As Worksheet 
Dim c As Range 
Dim varLoop As Variant 

'Create Your Dictionary. This Will Stop Duplicate Values 
Set dict = CreateObject("Scripting.Dictionary") 

'Loop Cells In Column A - Change To Your Column 
For Each c In Range("A:A") 
    'Exit When We Get To The End Of The Dataset 
    If Len(c) = 0 Then Exit For 
    'Add This Value To The Dictionary 
    If Not dict.exists(c) Then dict.Add c, "" 
Next c 

'Now The Dictionary Is Populated, Loop The Values We Stored 
For Each varLoop In dict 
    'Add A New Worksheet 
    Set ws = Worksheets.Add 
    'Name The Worksheet The Value We Got From Column A Earlier 
    ws.Name = varLoop 
Next varLoop 

End Sub