Hi everyone,
Any help or input would be greatly appreciated. This is the line that I have trouble with: Cells(i, 1) = Missing
Result I am hoping for: 32, 35,49,76
Concatenated with "," between the elements in array
Sub MatchThem()
Dim There(1 To 99) As Integer
Dim Missing() As Integer
Application.ScreenUpdating = False
On Error Resume Next
For i = 4 To 27
For j = 5 To 304
There(Cells(i, j).Value) = 1
Next
If Application.WorksheetFunction.Sum(There) = 99 Then
Cells(i, "A") = "AllThere"
Else
n = 0
For k = 1 To 99
If Not There(k) = 1 Then
n = n + 1
ReDim Preserve Missing(1 To 1, 1 To n)
Missing(1, n) = k
End If
Next
Cells(i, 1) = Missing
End If
Erase There
Next
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Bookmarks