Sub proga()
Dim tl
Open "g:\ostrov\100206.txt" For Input As #1 'путь к файлу на локальном диске
For a = 1 To 1000 'зависит от величины файла данных
Line Input #1, tl
y = tl
If y = 0 Then
g = g + 1
Worksheets("list2").Cells(g, 1).Value = 37
GoTo 1
End If
If y > 36 Or y = "" Then GoTo 1
If y < 37 Then
g = g + 1
Worksheets("list2").Cells(g, 1).Value = y
End If
1:
Next a
Close #1
End Sub
