Можно так, только не знаю как "ЭТО" будет работать на 20 тыс. строк  
От ошибки избавляемся любым способом  
Диапазон можно задать динамичски!

Ну и в догоночку ))))

Немного переделал, так не будет пустого значения  
 
Option Explicit  
Sub random()  
Dim a(156), k, i, sluch As Integer  
For i = -78 To 78  
   If i = 22 Then k = 1  
   If i <> 22 Then a(i + 78 - k) = i  
Next  
For i = 0 To 155  
   sluch = Int(Rnd() * (155))  
   k = a(i): a(i) = a(sluch): a(sluch) = k  
Next  
 
For i = -78 To 78  
   Cells(i + 79, 2) = a(i + 78)  
Next  
End Sub

Может так?

Почему-то разлогинился,  
последнее сообщение мое )))  
 
С уважением Jhonson!

Не поставил доллары...  
Так правильно:  
=ВПР(A3;ЛЕВСИМВ(список!$A$3:$L$18;ДЛСТР(A3));12;0)  
или без ВПР:  
=ИНДЕКС(список!$L$3:$L$18;ПОИСКПОЗ(A3;ЛЕВСИМВ(список!$A$3:$A$18;ДЛСТР(A3));0);0)  
 
Формулы массива!

проверяйте

в D1  
=ВПР(C1;$A$1:$B$3;2;0)

Подсчитать количество значений очень просто:  
 
Sub schet()  
shetif = Evaluate("=SUMPRODUCT((A6:A10=""Протон"")*(B6:B10<>""""))")  
End Sub  
В переменной shetif будет количество значений в столбце центр затрат по точке Протон.  
 
На счет воторого вопроса, можно просто исключить ввод повторяющихся данных в ячейках.

можно так, если всегда в начале пробел:  
=ПРАВСИМВ(A1;ДЛСТР(A1)-1)  
 
или так, если не всегда:  
=ЕСЛИ(ЛЕВСИМВ(A1;1)=СИМВОЛ(160);ПРАВСИМВ(A1;ДЛСТР(A1)-1);A1)

Или так (в формате времени):  
=(1-C2+C3)-ЕСЛИ((1-C2+C3)>1;ЕСЛИ((1-C2+C3)>(8/24+1);ЕСЛИ((1-C2+C3)>(8/24);0,5/24;0)))

Или так без строк

Как понял, проверяйте

GIG_ant, только что заметил, что ваша формула ссылается на доп столбец,  
так что вопрос открыт ))))

Еще одно условие придется дописать!  
Огромное спасибо!

только вот если значение равно 0, тогда образуется циклическая ссылка ((((

Спасибо!  
=ЕСЛИ((ПОИСКПОЗ(A3;$A$3:$A$16;0)=СТРОКА()-2)*$A$3:$A$16;РАНГ(A3;$K$3:$K$16);ИНДЕКС($B$3:B3;ПОИСКПОЗ(A3;$A$3:A3;0)))  
Так заработало!

Вопрос примерно на ту же тему, поэтому новую создавать не стал.  
Нужно получить не нумерацию, а место (ранг) исходя из набранных очков.  
Нашел решение только с доп.столбцом.  
Подробнее в примере.

даже еще проще, перемудрил:  
=(СУММПРОИЗВ(1/СЧЁТЕСЛИ($A$1:A1;$A$1:A1)))

можно и без смещ():  
 
=СТРОКА(A1)-СЧЁТЕСЛИ($A$1:A1;A1)+1-СЧЁТЕСЛИ($A$1:A1;"<>"&A1)+(СУММПРОИЗВ(1/СЧЁТЕСЛИ($A$1:A1;$A$1:A1))-1)

тогда придется добавить строчку над данными

А с повторами расширенный фильтр поможет

В чем проблема? обычный ВПР()

вот еще вариант, добавил доп столбец для наглядности.  
 
Владимир, а если одна книга из списка не просрочена?

вместо "А" можно вписать ячейку $F$17

=СУММПРОИЗВ((F18=$F$23:$F$1022)*($J$23:$J$1022="А"))

Вот такой вариант..

Упс.... не тот файл приложил..)))) И тот файл, который хотел приложить на работе остался..)))

может быть формулами устроит?

Если не примечание, тогда может быть подсказка к гиперссылке?