Trips selector

Hello everybody,

I am looking for a formula which is able to select number of trips with highest priorities.

1 T P F
2 M J K
3 K Q R
4 D G H
5 T G H
6 A Q R
7 M Q R
8 E Q R
9 L Q R
10 R E Q
11 L A K
12 B H C
13 N M H
14 O E Q
15 H E Q

This table describes that the first trip #1 goes from point "T" to point "P" to point "F". The second trip #2 goes from point "M" to point "J" to point "K". Etc.

The result should be looking like shown below:
1 T P F
2 M J K
4 D G H
6 A Q R

The trip number 3 is not possible to choose as a proper trip because the point "K" is already chosen in the higher priority trip #2.

Is it possible to somehow automate those results above?

Thank you.

=--(SUM(COUNTIF($B$1:D1,B2:D2))=0) as array formula

Thank you for your reply.

But, trip #6 is supposed to be also the right solution! Your excel file does have this solution included.

6 A Q R

...bu Q and R are already chosen ????

I am sorry, let me clarify the situation.

The point K is taken within the trip #2, it means that formula should skip trip #3 and not consider point Q and R as chosen. It is needed to consider all three point within each trip number.

Thanks

in this case UDF

Function vvv(d As Range, n As Long) As Long
Dim i&, j&, jj&, mm&, ii&
Dim dm(), ir() As Long
ReDim dm(1 To d.Rows.Count, 1 To d.Columns.Count)
ReDim ir(1 To d.Rows.Count)
ir(1) = 1

If n = 1 Then vvv = 1: Exit Function
dm = d
vvv = ir(1)

    For ii = 2 To n
        For i = 1 To ii - 1

            For j = 1 To UBound(dm, 2)
                For jj = 1 To UBound(dm, 2)
                mm = mm - CInt(dm(i, j) = dm(ii, jj) And ir(i) = 1)
            Next jj, j
        Next i
        If mm = 0 Then ir(ii) = 1
        vvv = ir(ii)
        mm = 0
Next ii

End Function

Thank you, it works perfectly!

the same udf as array formula
more effitient for large data volumes

Function vvv(d As Range) As Long()
Dim i&, j&, jj&, mm&, ii&, n&
Dim dm(), ir() As Long, fff()
n = d.Rows.Count
ReDim dm(1 To d.Rows.Count, 1 To d.Columns.Count)
ReDim ir(1 To d.Rows.Count, 1 To 1)
ir(1, 1) = 1

dm = d
'vvv = ir(1)

    For ii = 2 To n
        For i = 1 To ii - 1

            For j = 1 To UBound(dm, 2)
                For jj = 1 To UBound(dm, 2)
                mm = mm - CInt(dm(i, j) = dm(ii, jj) And ir(i, 1) = 1)
            Next jj, j
        Next i
        If mm = 0 Then ir(ii, 1) = 1
        mm = 0
Next ii
vvv = ir
End Function

It is strange
"your" files are slow
my are Dodge Vipers

Thank you. Do you know what could be a reason?