Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копировать-Вставить напротив пустой ячейки VBA
 
Помогите пожалуйста с макросом. Есть таблица A:H, высота ее всегда разная. Есть колонка А в которой есть пустые ячейки. Нужно напротив каждой пустой ячейки в колонке А, в туже строчку, вставить ячейки с K1 по DB1. Например если пустая ячейка А5, то ctrl+c K1:DB1 ctrl+v K5:DB5. И в саму пустую ячейку в колонке А5 вставить ячейку из K1.
 
Код
Sub sdf()
    Dim cell As Range
    With Intersect([K:DB], ActiveSheet.UsedRange)
        For Each cell In Intersect([A:A], .EntireRow).SpecialCells(4)
            If cell.Row <> .Row Then .Rows(cell.Row - .Row + 1) = .Rows(1).Value
        Next
    End With
End Sub
Изменено: Андрей Лящук - 13 Авг 2019 22:32:49
 
ff48, вариант
Код
Sub csg()
Dim LR As Long, i As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
   For i = 1 To LR
      If Cells(i, 1) = "" Then
          Range("K1:DB1").Copy Cells(i, 11)
          Cells(i, 1) = Cells(1, 11)
      End If
    Next
End Sub
 
Спасибо большое Андрей и casag )
Страницы: 1
Читают тему (гостей: 1)
Наверх