Копирование значений ячеек в столбце вдоль заполненных ячеек

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

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

Копирование значений ячеек в столбце вдоль заполненных ячеек (Макросы/Sub)

Rondondondon

Дата: Вторник, 05.04.2022, 12:52 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

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

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

К сообщению приложен файл: Primer.xlsx (9.3 Kb)

Ответить

китин

Дата: Вторник, 05.04.2022, 13:05 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 7029

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

Замечаний: 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

Ответить

Serge_007

Дата: Вторник, 05.04.2022, 13:06 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

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

Цитата Rondondondon, 05.04.2022 в 12:52, в сообщении № 1 (

)

...хаотично расположенные значения ячеек копировались вниз до первого имеющегося значения и далее первое имеющиеся значение копировалось до следующего

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

_Boroda_

Дата: Вторник, 05.04.2022, 13:18 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата китин, 05.04.2022 в 13:05, в сообщении № 2 (

)

навскидку

Еще лучше добавить
[vba]

Код

Range("A3:A" & tt_)=Range("A3:A" & tt_).value

[/vba]
А то потом отсортирует кто-нибудь и весело получится

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

Ответить

Rondondondon

Дата: Вторник, 05.04.2022, 13:30 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 3

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

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

Цитата Serge_007, 05.04.2022 в 13:06, в сообщении № 3 (

)

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

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