獲取價值的唯一列表中一列從一個表到另一個

Question

我有三個工作

• 主簿
• 遷移
• 儀表板

我將如何創建在主工作表列T中的所有值的唯一列表，並將其放在儀表板表（從A6開始）？

Answer 1

試試這個：

Sub dural() 
    Dim w1 As Worksheet, w2 As Worksheet 
    Dim N As Long, i As Long, col As Collection 
    Dim j As Long 
    Set w1 = Sheets("Master") 
    Set w2 = Sheets("Dashboard") 
    N = w1.Cells(Rows.Count, "T").End(xlUp).Row 
    Set col = New Collection 
    For i = 1 To N 
     v = w1.Cells(i, "T").Value 
     cv = CStr(v) 
     On Error Resume Next 
     col.Add v, cv 
     If Err.Number = 0 Then 
      w2.Range("A6").Offset(j, 0).Value = w1.Cells(i, "T") 
      j = j + 1 
     Else 
      Err.Number = 0 
      On Error GoTo 0 
     End If 
    Next i 
End Sub