Базовые понятия

[pavel.ignatenko]

Значит руки не оттедова растут. Буду еще пробовать. Спасибо?

Остаются первые два вопроса.

[Hugo121]

Первое совпадение можно через Find найти:

Sub tt()
On Error Resume Next
MsgBox Range("a:a").Find("Петров").Row
End Sub

On Error Resume Next на случай, если Петрова нет.

[pavel.ignatenko]

Если Петрова нет, то у меня следуют другие действия
Но и за Find тоже спасибо.

Так а с запросами к вэбу никто дела не имел?

[IgorGO]

Значит руки не оттедова растут

если руки золотые, то не важно откуда они растут. (С) народная мудрость
результаты запроса обычно складывал на отдельный листок в расчетной книге.
покажите строку запроса, может можно упростить...
откажитесь от перечисления колонок, например, заберите все данные, пусть себе лежат.

[pavel.ignatenko]

Завтра только смогу показать строчку запроса -- на работе осталась.
Но упростить уже низя. В реальности она была под 700 символов, я ее до 400 с хвостиком сократил. Там передача параметров пхпшнику.

А можно в качестве внешней книги использовать линк типа http://zzz.com/index.php?getXLS=yes

[Hugo121]

По первому пункту - превышение 255 символов:
http://support.microsoft.com/kb/213841
Правда не знаю, сработает ли это с запросом.
Может быть StringToArray()?

P.S. Про Петрова:

Sub tt()
    Dim x As Range
    Set x = Range("a:a").Find("Петров")
    If Not x Is Nothing Then
        MsgBox x.Row
    Else
        MsgBox "Петров не обнаружен!!!", vbCritical
    End If
End Sub