- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
For t = 3 To u
If Cells(t, 204).Text = " " Or Cells(t, 204).Text = "" Then
If Cells(t + 1, 204).Text = " " Or Cells(t + 1, 204).Text = "" Then
If Cells(t + 2, 204).Text = " " Or Cells(t + 2, 204).Text = "" Then
If Cells(t + 3, 204).Text = " " Or Cells(t + 3, 204).Text = "" Then
If Cells(t + 4, 204).Text = " " Or Cells(t + 4, 204).Text = "" Then
If Cells(t + 5, 204).Text = " " Or Cells(t + 5, 204).Text = "" Then
If Cells(t + 6, 204).Text = " " Or Cells(t + 6, 204).Text = "" Then
If Cells(t + 7, 204).Text = " " Or Cells(t + 7, 204).Text = "" Then
If Cells(t + 8, 204).Text = " " Or Cells(t + 8, 204).Text = "" Then
If Cells(t + 9, 204).Text = " " Or Cells(t + 9, 204).Text = "" Then
If Cells(t + 10, 204).Text = " " Or Cells(t + 10, 204).Text = "" Then
If Cells(t + 11, 204).Text = " " Or Cells(t + 11, 204).Text = "" Then
If Cells(t + 12, 204).Text = " " Or Cells(t + 12, 204).Text = "" Then
If Cells(t + 13, 204).Text = " " Or Cells(t + 13, 204).Text = "" Then
If Cells(t + 14, 204).Text = " " Or Cells(t + 14, 204).Text = "" Then
If Cells(t + 15, 204).Text = " " Or Cells(t + 15, 204).Text = "" Then
If Cells(t + 16, 204).Text = " " Or Cells(t + 16, 204).Text = "" Then
If Cells(t + 17, 204).Text = " " Or Cells(t + 17, 204).Text = "" Then
If Cells(t + 18, 204).Text = " " Or Cells(t + 18, 204).Text = "" Then
If Cells(t + 19, 204).Text = " " Or Cells(t + 19, 204).Text = "" Then
If Cells(t + 20, 204).Text = " " Or Cells(t + 20, 204).Text = "" Then
If Cells(t + 21, 204).Text = " " Or Cells(t + 21, 204).Text = "" Then
If Cells(t + 22, 204).Text = " " Or Cells(t + 22, 204).Text = "" Then
If Cells(t + 23, 204).Text = " " Or Cells(t + 23, 204).Text = "" Then
If Cells(t + 24, 204).Text = " " Or Cells(t + 24, 204).Text = "" Then
If Cells(t + 25, 204).Text = " " Or Cells(t + 25, 204).Text = "" Then
If Cells(t + 26, 204).Text = " " Or Cells(t + 26, 204).Text = "" Then
If Cells(t + 27, 204).Text = " " Or Cells(t + 27, 204).Text = "" Then
If Cells(t + 28, 204).Text = " " Or Cells(t + 28, 204).Text = "" Then
If Cells(t + 29, 204).Text = " " Or Cells(t + 29, 204).Text = "" Then
If Cells(t + 30, 204).Text = " " Or Cells(t + 30, 204).Text = "" Then
If Cells(t + 31, 204).Text = " " Or Cells(t + 31, 204).Text = "" Then
If Cells(t + 32, 204).Text = " " Or Cells(t + 32, 204).Text = "" Then
If Cells(t + 33, 204).Text = " " Or Cells(t + 33, 204).Text = "" Then
If Cells(t + 34, 204).Text = " " Or Cells(t + 34, 204).Text = "" Then
GoTo zan4:
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next t
zan4:
Кусок реально используемого "проэкта", используется у нас на призводстве.
И вот-такого штук 10 в коде.
ноу коментс.
Правда непонятно зачем там For t = 3 To u - можно же было тоже копипастой сделать.
в начале кода стоит инициализация u:
u = 2000
а хвост кода выглядел так:
Next t
zan4:
v = t - 1
Так вот v-это и есть последняя строка с данными на странице.
Кстати, чему равно t, если цикл отработал до конца?
Но автор эту возможность не предусмотрел? То есть u просто заведомо больше количества полезных строк?
В Турбо-Паскале, кстати, так же можно сделать, только без меток, для чего создатели заботливо заготовили break. И переменные в нём нельзя объявлять внутри цикла... Не ради ли подобных штуковин?
Я знаю, что в Аде, например, счётчик цикла всегда объявляется в заголовке цикла и живёт только внутри цикла.
Или просто Ctrl+C, Ctrl+V,
Или просто Ctrl+C, Ctrl+V,
Или просто Ctrl+C, Ctrl+V,
Или просто Ctrl+C, Ctrl+V,
З.Ы. CCCV = Ctrl+C, Ctrl+V,