Код |
---|
If Cells(8, 29) <> 0 Then Cells(8, 30).Resize(77, 1) = Cells(8, 29).Resize(77, 1).Value End If |
Копирование строк из массива по условию, копирование только отличных от нуля строк
Сложить меняющиеся значения во время выполнения цикла, код вба