Pazan В очередь ;)
Цитата: ті хочешь сказать, что не совпадает функциональность формул и могут біть неверніе значения?
Русское название функции может не распознаться в английском. Я не уверен как сохраняются функции в экселе. Также возможна проблема с разделителем (в английском , вместо ;).
Добавлено: Mushroomer Типа такого:
Код: Function MatchRange(lookup As Range, from As Range, _
Optional first As Boolean = True)
Dim test As Boolean
If lookup.Rows.Count > 1 Or _
lookup.Columns.Count <> from.Columns.Count Then
MatchRange = "#ERROR"
Exit Function
End If
For r = 1 To from.Rows.Count
test = True
For c = 1 To from.Columns.Count
If from(r, c) <> lookup(1, c) Then
test = False
Exit For
End If
Next
If test Then
MatchRange = r
If first Then
Exit For
End If
End If
Next
End Function