Если СокрЛП(Excel.Cells(Строка, 2).Value)


Как проще всего сравнить строку с массивом тех символов что необходимо?

Цифры = "1234567890";

Если Найти(Цифры, Сред(Где,н,1)) > 0 Тогда

(1) ну это в цикле как я понимаю, а без цикла никак чтоль?

что надо сделать-то? непонятно сформулировал

проверить, что строка является представлением числа?

Если Найти("1234567890", СокрЛП(Excel.Cells(Строка, 2).Value)) > 0 Тогда

(2) неа

RegExp = CreateObject("VBScript.RegExp");
   RegExp.Pattern =  "\d"; //Шаблон, который соответствует целому числу
   Если Если RegExp.Test(Excel.Cells(Строка, 2).Value)Тогда

//Шаблон, который соответствует цифре, да ;)

(2) Лучше не мучать мозг неизведанным и не пытаться оптимизировать неоптимизируемое. Там - мыши.

Слон спрятался тут
Excel.Cells(Строка, 2).Value

(8) в валуе могёт быть текст

(9) Я пользую UsedRange :-)

Я вот про этого слона.