Копирование диапазоново строк и столбцов

[immortal12388]

Добрый день.
Просьба помочь в решении проблемы с VBA.
Написал скрипт, который должен пробегаться по строке до тех пор пока не встретиться пустая ячейка-окончание основного цикла.
В цикле сделал проверку по условию значения, и если оно меньше 8000, то снова загоняю уже в другой цикл, чтобы найти последнее значение из диапазона, в котором не встречаются значения 8000.

При запуске скрипта приложение зависает.

Sub SayHello()
Const MaxDistance As Integer = 8000
Dim NumberColumn As Integer
Dim NumberRow As Integer
Dim DistanceValue As Integer


NumberColumn = 4
NumberRow = 4
Sheets("Лист1").Range("C4:C186").Co py Sheets("Лист2").Range("C4:C186")
Do While Cells(NumberRow, NumberColumn) <> 0
If Cells(NumberRow, NumberColumn) < MaxDistance Then
Do While Cells(NumberRow, NumberColumn) < MaxDistance
DistanceValue = Cells(NumberRow, NumberColumn).Value
NumberRow = NumberRow + 1
Loop
NumberRow = NumberRow - 1
Worksheets("Лист2").Cells(NumberRow , NumberColumn) = DistanceValue
NumberRow = NumberRow + 1
End If
Loop
End Sub

[IgorGO]

пробуйте так:

NumberColumn = 4
NumberRow = 4
Sheets("Лист1").Range("C4:C186").Co py Sheets("Лист2").Range("C4:C186")
Do While Cells(NumberRow, NumberColumn) <> 0
  Do While Cells(NumberRow, NumberColumn) < MaxDistance
    DistanceValue = Cells(NumberRow, NumberColumn).Value
    NumberRow = NumberRow + 1
  Loop
  Worksheets("Лист2").Cells(NumberRow-1 , NumberColumn) = DistanceValue
  NumberRow = NumberRow + 1
Loop

и должен Вас огорчить - С это 3-я колонка, а не 4-я.

[immortal12388]

Сообщение от IgorGO

пробуйте так:

NumberColumn = 4
NumberRow = 4
Sheets("Лист1").Range("C4:C186").Co py Sheets("Лист2").Range("C4:C186")
Do While Cells(NumberRow, NumberColumn) <> 0
  Do While Cells(NumberRow, NumberColumn) < MaxDistance
    DistanceValue = Cells(NumberRow, NumberColumn).Value
    NumberRow = NumberRow + 1
  Loop
  Worksheets("Лист2").Cells(NumberRow-1 , NumberColumn) = DistanceValue
  NumberRow = NumberRow + 1
Loop

и должен Вас огорчить - С это 3-я колонка, а не 4-я.

А колонка С у меня не перебирается, это просто некий набор значений который нужно скопироваться на лист 2.
Писк значений как раз осуществляется по столбцу D. Но далее мне нужно сделать так чтобы при этом и перебирать не один столбец, а все которые не пустые.


Попробовал ваш вариант, вылетает ошибка 6 Overflow.
Причем как то странно получается, переменная NumberRow содержит значение 32767, хотя максимальное значение должно быть не более 400.

[immortal12388]

Сообщение от immortal12388

А колонка С у меня не перебирается, это просто некий набор значений который нужно скопироваться на лист 2.
Писк значений как раз осуществляется по столбцу D. Но далее мне нужно сделать так чтобы при этом и перебирать не один столбец, а все которые не пустые.


Попробовал ваш вариант, вылетает ошибка 6 Overflow.
Причем как то странно получается, переменная NumberRow содержит значение 32767, хотя максимальное значение должно быть не более 400.

По сути происходит переполнение данного типа -Integer. Но почему цикл не останавливается когда встречаются пустые значения.