Копирование ячеек при определенных условиях

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование ячеек при определенных условиях (Макросы/Sub)

Jowls

Дата: Среда, 16.02.2022, 21:19 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 20% ±

Добрый день, уважаемые Форумчане.
Прошу помочь не очень уверенному пользователю Экселя.
Есть файл (см.приложение) в котором хотелось бы сделать так, чтобы в столбце D значение ячеек с условным цветом "А" копировалось до следующей ячейки с таким же цветом и т.д по всему столбцу D, и только по нему.
Чтоб было понятнее, что я имел ввиду: название клиента из ячейки D4 скопировано на диапазон D5:D11, следующее название клиента из ячейки D12, должно быть скопировано на диапазон D13:D17 и т.д.
Поскольку в оригинальном файле порядка 30 тыс.строк, то делать вручную это как то очень трудоемко, а макросы, к сожалению, для меня пока вообще темный лес.
Заранее благодарю.

К сообщению приложен файл: 16022022.xls (30.0 Kb)

Ответить

Nic70y

Дата: Четверг, 17.02.2022, 09:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8887

Репутация: 2324 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_yellow()
    Application.ScreenUpdating = False
    For Each b In Range("d4:d" & Cells(Rows.Count, "d").End(xlUp).Row)
        If b.Interior.Color <> 14285567 Then b.Offset(-1, 0).Copy b
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]так надо?

ЮMoney 41001841029809

Ответить

Jowls

Дата: Четверг, 17.02.2022, 10:06 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 20% ±

Да, помогло!!!
Спасибо вам огромное!!!

Ответить

Копирование ячеек при определенных условиях (Макросы/Sub)

Страница 1 из 1
1