*
     * @throws Exception ?
     *
     * @todo doc Exception
     */

Dim myWbXlSheetConfig As Variant

Dim e as New Enumerable
Set e.Collection = Range("A:A")
e.Merge(Range("B:B"))
bool = e.Contains(somevalue)

Dim cell as Range
For each cell In Range("C:C")
    bool = e.Contains(cell)
next cell

Dim e As New Enumerable
Set e.Collection = Range("A:A")
e.Merge (Range("B:B"))

Dim cell As Range
Dim columnD As New Enumerable
For Each cell In Range("C:C")
	If Not (e.Contains(cell)) Then
		columnD.Add (cell)
	End If
Next cell

Range("D:D") = columnD

scoreFunctions.add(invoiceDataSet -> {
    if (invoiceDataSet.hasProperty(TemplateProperty.INVOICE_NUMBER)) {
        return 0;
    }
    String invoiceNumber = invoiceDataSet.getPropertyValue(TemplateProperty.INVOICE_NUMBER, InvoiceNumber.getDataClass());
    int countNumbers = (int)invoiceNumber.codePoints().filter(Character::isDigit).count();
    return Math.round((countNumbers * 1f / invoiceNumber.length()) * 10);
});

Sub FindUnAssigned()
    Dim e As New Enumerable
    Set e.Collection = Range("A3:A4310")
    e.Merge (Range("B3:B502"))

    Dim cell As Range
    Dim columnD As New Enumerable
    For Each cell In Range("C3:C8056")
        If Not (e.Contains(cell)) Then
            columnD.Add (cell)
        End If
    Next cell

    Dim i As Integer
    For i = 0 To columnD.Count - 1
       Dim j As Integer
       j = i + 3
       Range("D" & j) = columnD.item(i)
    Next i

End Sub

Public Function Contains(itemToSearchFor As Variant, Optional ByVal compareByDefaultProperty = False) As Boolean
Attribute Contains.VB_Description = "Checks if an item exists in a Collection. Matches on the Default Property by Default. Runtime Error 438 'Object does not support method' may be raised when using 'compareByDefaultProperty'."
On Error GoTo ErrHandler

    Dim item As Variant

    'compareByDefaultProperty is an unsafe option
    For Each item In mCollection
        If IsObject(item) And Not compareByDefaultProperty Then

e.Contains(cell,true)

e.Contains(cell.Value)

Sub FindUnAssigned()
    Dim e As New Enumerable
    Set e.Collection = Range("A3:A4310")
    e.Merge (Range("B3:B502"))

    Dim cell As Range
    Dim columnD As New Enumerable
    For Each cell In Range("C3:C8056")
        If Not (e.Contains(cell.value)) Then
            columnD.Add (cell.value)
        End If
    Next cell

    Dim i As Integer
    For i = 1 To columnD.Count
       Dim j As Integer
       j = i + 2
       Range(("D" & j), ("D" & columnD.Count + 2)) = columnD.item(i)
    Next i