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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование значений ячеек в столбце вдоль заполненных ячеек - Мир MS Excel

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

Здравствуйте!
Возник вопрос следующего характера:
В рамках выполнения макроса VBA необходимо чтобы в интервале одного столбца (допустим А), хаотично расположенные значения ячеек копировались вниз до первого имеющегося значения и далее первое имеющиеся значение копировалось до следующего.
Честно говоря, тяжело описать словами, пример во вложении.
Макрорекордер при записи макроса записывает только в указанный диапазон, а плавающие значение для него в рамках цикла ума не приложу как лучше сделать

Заранее спасибо!
К сообщению приложен файл: Primer.xlsx (9.3 Kb)
 
Ответить
СообщениеЗдравствуйте!
Возник вопрос следующего характера:
В рамках выполнения макроса VBA необходимо чтобы в интервале одного столбца (допустим А), хаотично расположенные значения ячеек копировались вниз до первого имеющегося значения и далее первое имеющиеся значение копировалось до следующего.
Честно говоря, тяжело описать словами, пример во вложении.
Макрорекордер при записи макроса записывает только в указанный диапазон, а плавающие значение для него в рамках цикла ума не приложу как лучше сделать

Заранее спасибо!

Автор - Rondondondon
Дата добавления - 05.04.2022 в 12:52
китин Дата: Вторник, 05.04.2022, 13:05 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
навскидку. В модуль листа
[vba]
Код
Sub Макрос1()
Dim tt_ As Long
  tt_ = Cells(Rows.Count, 2).End(xlUp).Row
   On Error Resume Next
    Range("A3:A" & tt_).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub
[/vba]
К сообщению приложен файл: Rondondondon.xlsm (14.3 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениенавскидку. В модуль листа
[vba]
Код
Sub Макрос1()
Dim tt_ As Long
  tt_ = Cells(Rows.Count, 2).End(xlUp).Row
   On Error Resume Next
    Range("A3:A" & tt_).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub
[/vba]

Автор - китин
Дата добавления - 05.04.2022 в 13:05
Serge_007 Дата: Вторник, 05.04.2022, 13:06 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Здравствуйте

...хаотично расположенные значения ячеек копировались вниз до первого имеющегося значения и далее первое имеющиеся значение копировалось до следующего
Это делается штатными средствами Excel без привлечения VBA: Заполнение пустых ячеек в списке


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

...хаотично расположенные значения ячеек копировались вниз до первого имеющегося значения и далее первое имеющиеся значение копировалось до следующего
Это делается штатными средствами Excel без привлечения VBA: Заполнение пустых ячеек в списке

Автор - Serge_007
Дата добавления - 05.04.2022 в 13:06
_Boroda_ Дата: Вторник, 05.04.2022, 13:18 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
навскидку

Еще лучше добавить
[vba]
Код
Range("A3:A" & tt_)=Range("A3:A" & tt_).value
[/vba]
А то потом отсортирует кто-нибудь и весело получится


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
навскидку

Еще лучше добавить
[vba]
Код
Range("A3:A" & tt_)=Range("A3:A" & tt_).value
[/vba]
А то потом отсортирует кто-нибудь и весело получится

Автор - _Boroda_
Дата добавления - 05.04.2022 в 13:18
Rondondondon Дата: Вторник, 05.04.2022, 13:30 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Это делается штатными средствами Excel без привлечения VBA: Заполнение пустых ячеек в списке


Здравствуйте!
Да, согласен, протягивается, но данный макрос планируется добавить в уже существующий по преобразованию и приведению исходных данных в надлежащий вид с последующей выгрузкой.
Но все равно спасибо!
 
Ответить
Сообщение
Это делается штатными средствами Excel без привлечения VBA: Заполнение пустых ячеек в списке


Здравствуйте!
Да, согласен, протягивается, но данный макрос планируется добавить в уже существующий по преобразованию и приведению исходных данных в надлежащий вид с последующей выгрузкой.
Но все равно спасибо!

Автор - Rondondondon
Дата добавления - 05.04.2022 в 13:30
Rondondondon Дата: Вторник, 05.04.2022, 13:32 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

навскидку. В модуль листа


Также добавил строку от Бороды.

Спасибо большое! Вы очень помогли!

Теперь все работает тонко и изящно
 
Ответить
Сообщение
навскидку. В модуль листа


Также добавил строку от Бороды.

Спасибо большое! Вы очень помогли!

Теперь все работает тонко и изящно

Автор - Rondondondon
Дата добавления - 05.04.2022 в 13:32
китин Дата: Вторник, 05.04.2022, 13:34 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Саша привет, давно не было!!!!
Еще лучше добавить

точно. надо же формулу то убить, значения оставить


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеСаша привет, давно не было!!!!
Еще лучше добавить

точно. надо же формулу то убить, значения оставить

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

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