excel udf get unique values
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
4
8
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
8
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
0
0
Function DistinctVals(a, Optional col = 1)
Dim i&, v: v = a
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v): .Item(v(i, col)) = 1: Next
DistinctVals = Application.Transpose(.Keys)
End With
End Function
'-----------------------------------------------------------------------
'If you happen to have Office365, the above function can be shortened
'to make use of the Office365 worksheet function 'UNIQUE()' instead
'of the dictionary:
Function DistinctVals(r As Range)
DistinctVals = WorksheetFunction.Unique(r)
End Function
Thank you!
0
0
Are there any code examples left?
New code examples in category VBA