Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копировать-Вставить напротив пустой ячейки VBA
 
#1
13.08.2019 21:39:23
Помогите пожалуйста с макросом. Есть таблица A:H, высота ее всегда разная. Есть колонка А в которой есть пустые ячейки. Нужно напротив каждой пустой ячейки в колонке А, в туже строчку, вставить ячейки с K1 по DB1. Например если пустая ячейка А5, то ctrl+c K1:DB1 ctrl+v K5:DB5. И в саму пустую ячейку в колонке А5 вставить ячейку из K1.
 
 
 
#2
13.08.2019 22:30:21
Код
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.08.2019 22:32:49
 
 
 
#3
13.08.2019 22:55:51
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
 
 
 
#4
13.08.2019 23:42:34
Спасибо большое Андрей и casag )
 
 
 
Страницы: 1
Наверх