Я очень плохо знаком с vba, и мне нужно скопировать и вставить формулу из D1 в "010 - RPL" во все пустые ячейки в столбце D, начиная с D6 и вплоть до последней строки.
Я пробовал разные подходы в последние пару дней и нашел, что это наиболее близко, но для меня это ничего не значит, пока он удаляет мои заголовки, которые используются для сводных таблиц.
Это самое близкое, что у меня есть, но оно перевешивает все заголовки, которые есть в данных. Хорошо, что он использует мою формулу Vlookup в D1, "= VLOOKUP (C1, 'Departments Lookup'! $ B: $ D, 3, FALSE)" и ищет правильный адрес ячейки. Примером может быть: Начиная с D6, это будет делать vlookup в C6.
Sheets("010 - RPL").Select
LR = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("D6:D" & LR)
Range("D1").Select
Selection.Copy
Rng.Select
ActiveSheet.Paste
Моя текущая рабочая таблица выглядит так с именами сверху в качестве заголовков. Поскольку формула не указывает «только пустые ячейки» для копирования формулы, код переопределяет второй заголовок. В текущем примере, который у меня есть, формула vlookup помещается в «заголовок Dep Lookup», где CTO Office и Engineering приходят на другой упомянутый лист.
MainAccount Dept Dep Lookup January February March April Current Month YTD
------------------------------------------------------------------------
40000 2020 CTO Office 75000 40000 0 60000 60000 175000
40000 2100 Engineering 0 0 0 40000 40000 40000
MainAccount Dept **#N/A** January February March April Current Month YTD
------------------------------------------------------------------------
45000 2020 CTO Office 75000 40000 0 60000 60000 175000
46000 2100 Engineering 0 0 0 40000 40000 40000
Страница должна выглядеть следующим образом после создания формулы ...
MainAccount Dept Dep Lookup January February March April Current Month YTD
------------------------------------------------------------------------
40000 2020 CTO Office 75000 40000 0 60000 60000 175000
40000 2100 Engineering 0 0 0 40000 40000 40000
MainAccount Dept **Dep Lookup** January February March April Current Month YTD
------------------------------------------------------------------------
45000 2020 CTO Office 75000 40000 0 60000 60000 175000
46000 2100 Engineering 0 0 0 40000 40000 40000
Я ожидал бы, что это скопирует формулу из D1 и вставит ее в столбец D, начиная с D6 и вплоть до последней строки листа, без переопределения различных заголовков, которые есть на странице, что означает, что это только копирование формула в пустые ячейки до последней строки.
