Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Использование - сохранить как модуль. В формуле указываете, например,
=test_me(A1;A2)
- для сравнения содержимого А1 и А2. Просто сравнивает числа. Разделитель - пробел.
Исходные A1 = "1 2 3 4 5", A2 = "1 0 3 2 5" , Результат "= > = < ="
Код:
Function test_Me(Data1 As Range, Data2 As Range)
arr1 = Split(Data1.Value, " ")
arr2 = Split(Data2.Value, " ")
tmpstr = ""
If UBound(arr1) > UBound(arr2) Then
arrsize = UBound(arr2)
Else
arrsize = UBound(arr1)
End If
For i = 0 To arrsize
If arr1(i) = arr2(i) Then
tmpdat = "= "
ElseIf arr1(i) > arr2(i) Then
tmpdat = "> "
Else
tmpdat = "< "
End If
tmpstr = tmpstr & tmpdat
Next
test_Me = Trim(tmpstr)
End Function
|
|
