Если Вы не имеете ничего против UDF, то ловите [vba]
Код
Public Function Art(No As Long, R As Range) As String
For i = 1 To R.Rows.Count If i <> No And R.Cells(i, 2).Value = R.Cells(No, 2).Value And R.Cells(i, 3).Value = R.Cells(No, 3).Value Then If Art = "" Then Art = R.Cells(i, 1) Else Art = Art & "," & R.Cells(i, 1) End If End If Next i
End Function
[/vba]
Привет
Если Вы не имеете ничего против UDF, то ловите [vba]
Код
Public Function Art(No As Long, R As Range) As String
For i = 1 To R.Rows.Count If i <> No And R.Cells(i, 2).Value = R.Cells(No, 2).Value And R.Cells(i, 3).Value = R.Cells(No, 3).Value Then If Art = "" Then Art = R.Cells(i, 1) Else Art = Art & "," & R.Cells(i, 1) End If End If Next i