[azbest]

for

For i = 3 To 113 zn1=worksheets(3).cells(i,5).Value zn2=worksheets(3).cells(i,6).Value zn3=worksheets(3).cells(i,7).Value zn4=worksheets(3).cells(i,8).Value If h>= zn1 And h <= zn2 Then If b >= zn3 And b <= zn4 Then Cells(i, 10).Value = Worksheets(3).Cells(i, 2).Value End If End If Next i »

[St33l]

а еще подскажите, как проверить вхождение комбинации символов в строку? например ДСК в слово ПОДСКАЖИТЕ?

[azbest]

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

[alex77755]

вхождение комбинации символов в строку

Dim re
re = InStr("ПОДСКАЖИТЕ", "ДСК")

re=3