Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование ячеек при определенных условиях - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование ячеек при определенных условиях (Макросы/Sub)
Копирование ячеек при определенных условиях
Jowls Дата: Среда, 16.02.2022, 21:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Jowls
Дата добавления - 16.02.2022 в 21:19
Nic70y Дата: Четверг, 17.02.2022, 09:12 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7744
Репутация: 1858 ±
Замечаний: 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
 
Ответить
Сообщение[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]так надо?

Автор - Nic70y
Дата добавления - 17.02.2022 в 09:12
Jowls Дата: Четверг, 17.02.2022, 10:06 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Jowls
Дата добавления - 17.02.2022 в 10:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование ячеек при определенных условиях (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!