А вот сам макрос:  
 
Option Explicit  
Sub IP_Number()  
Const d = True ' таймер  
If d Then: Dim t!, tt!: t = Timer: tt = t ' таймер  
 
Dim IP As String  
Dim w As Long, x As Long  
Dim ipnum As Single  
Dim br_arr, er_arr, fr_arr, ilr&, dlr&, rng As Range, dish_arr(), ip_arr(), i&, j&  
 
ilr = Sheets("history").Cells(Rows.Count, 1).End(xlUp).Row ' лист с нужными ip-адресами  
dlr = Sheets("data").Cells(Rows.Count, 1).End(xlUp).Row ' лист с полным списком диапозонов ip-адресов  
Set rng = Range(Sheets("data").Cells(2, 1), Sheets("data").Cells(dlr, 6))  
 
Application.ScreenUpdating = False  
Application.Calculation = xlCalculationManual  
 
Sheets("history").Select  
ReDim ip_arr(1 To (ilr - 1), 1 To 1)  
For w = 2 To ilr  
IP = Trim(Range("F" & w).Value) ' удаление лишних пробелов  
ipnum = Val(Substring(IP, ".", 1)) * 16777216 + Val(Substring(IP, ".", 2)) * 65536 + Val(Substring(IP, ".", 3)) * 256 + Val(Substring(IP, ".", 4)) ' вычисление контрольного числа  
ip_arr(w - 1, 1) = ipnum  
Next w  
If d Then Debug.Print "Substring", Round(Timer - t, 3): t = Timer ' таймер  
br_arr = rng.Columns(3)    
er_arr = rng.Columns(4)  
fr_arr = rng.Columns(6)    
ilr = ilr - 1  
dlr = dlr - 1  
ReDim dish_arr(1 To ilr, 1 To 1)    
For i = 1 To ilr  
       For j = 1 To dlr  
           If ip_arr(i, 1) <= er_arr(j, 1) And ip_arr(i, 1) >= br_arr(j, 1) Then  
               dish_arr(i, 1) = fr_arr(j, 1)  
               Exit For  
           End If  
       Next  
   Next  
   If d Then Debug.Print "Compare columns", Round(Timer - t, 3): t = Timer  
   Sheets("history").Cells(2, 11).Resize(ilr) = dish_arr    
 
Application.Calculation = xlCalculationAutomatic  
Application.ScreenUpdating = True  
 
If d Then tt = Timer - tt: Debug.Print "Write", Round(Timer - t, 3); vbLf & "Total", Round(tt, 3); vbLf; "----" ' таймер  
End Sub  
 
Function Substring(Txt, Delimiter, n) As String ' функция деления текста по определенному разделяющему элементу  
Dim x As Variant  
   x = Split(Txt, Delimiter)  
   If n > 0 And n - 1 <= UBound(x) Then  
       Substring = x(n - 1)  
   Else  
       Substring = ""  
   End If  
End Function

{quote}{login=Longines}{date=15.06.2010 07:29}{thema=Альтернативный способ сравнения вхождения ip-адреса в группу}{post}Добрый день.  
Чтобы было проще искать в базе было придумано контрольное число, вычисляющиеся по формуле: ipnum = 16777216*w + 65536*x + 256*y + z      
где IP Address = w.x.y.z{/post}{/quote}Очень разумно, т.к. именно так IP-адрес выглядит с точкт зрения машины.  
 
Если отсортировать начальные адреса в порядке возрастания, то обычная ф-я ВПР с последним аргументом ИСТИНА найдет соотв. начальный адрес. Конечно, при условии, что справочник содержит все адреса, которые могут встретиться.

ВПР, к сожалению, не подходит, так как появляются ошибки.

Диапазоны ip-адресов разрываемы. Из-за этого появляются ошибки.  
 
1-2 порядка? Это невозможно. 3000 ip-адресов, которые еще надо перевести в контрольные числа...

{quote}{login=Longines}{date=17.06.2010 11:07}{thema=}{post}Диапазоны ip-адресов разрываемы. Из-за этого появляются ошибки.{/post}{/quote}Ты прочитал мои позавчерашние посты, посмотрел пример? Там как раз есть разрыв в диапазоне.    
{quote}{login=Longines}{date=17.06.2010 11:07}{thema=}{post}1-2 порядка? Это невозможно. 3000 ip-адресов, которые еще надо перевести в контрольные числа...{/post}{/quote}Я имел в виду только поиск "контрольного числа" по диапазону "контрольных чисел", который, как я понял, основное время занимает.

если бы у нас было 18Гб оперативной памяти, то можно было бы просто все адреса занести в целочисленный массив размерности 4 и извлекать просто как            ip(w,x,y,z) :)

а сколько всего диапазонов?  
 
и сколько стран?

Там API тоже есть, в т.ч. для VB.NET: http://www.maxmind.com/app/vb  
Может, "все уже украдено до нас"?

все равно проверка лишняя :)  
 
вторую надо делать только при выполнении первого условия, а не все время..  
 
но я уже в самом деле делал для телефонных номеров - там получилось в 500 раз быстрее сделать, чем у автора.. до долей секунды дошло..  
 
щас уже не интересно, только если на коммерческой основе :)