Создание макроса для копирования некоторых форматированных ячеек в соседний столбец - VBA
Формулировка задачи:
Здравствуйте. Буду очень благодарна за помощь в создании макроса.
Есть таблица, нужно, чтобы данные из выделенных серым ячеек столбца B копировались в пустые ячейки столбца A.
Как реализовать это с помощью мокроса? Заранее спасибо!
Решение задачи: «Создание макроса для копирования некоторых форматированных ячеек в соседний столбец»
textual
Листинг программы
Sub dm()
Dim c As Range, i&
i = 1
For Each c In Range("B2", Cells(Rows.Count, "B").End(xlUp))
If c.Interior.ColorIndex <> xlColorIndexNone Then
i = i + 1
c.Copy Cells(i, 1)
End If
Next
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д