Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование данных в строчки ниже до непустой ячейки
 
Добрый день! Подскажите, как скопировать из ячейки в пустые ячейки ниже до непустой ячейки т.д. (по столбцу В)? Во вложение пример: на лист1 исходные данные, во вкладке Итого в столбце В серой заливкой выделила что скопировалось и как.
 
Мо быть - https://www.planetaexcel.ru/techniques/2/96/
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Z, спасибо большое за подсказку!!
 
можно так
Код
Sub m()
Dim mass()
lr = Cells(Rows.Count, 3).End(xlUp).Row
ReDim mass(1 To lr - 3, 1 To 3)
For i = 4 To lr
    If Cells(i, 3).Value <> "" Then
        a = a + 1
        mass(a, 1) = Cells(i, 1).Value
        If Cells(i, 2).Value = "" Then mass(a, 2) = mass(a - 1, 2) Else mass(a, 2) = Cells(i, 2).Value
        mass(a, 3) = Cells(i, 3).Value
    End If
Next
Range("A4:C" & lr).ClearContents
Range("A4").Resize(a, 3) = mass
End Sub
 
yozhik, спасибо, я думаю такой способ в другом месте использую)
Страницы: 1
Читают тему (гостей: 1)
Наверх