Я пытаюсь написать код для автоматического заполнения конечного столбца на листе вправо x раз.Столбец автозаполнения при динамическом запуске
У меня есть код, который подберет последний столбец:
With ActiveSheet
LC = .Cells(3, .Columns.Count).End(xlToLeft).Column
End With
Columns(LC).Select
, а также код, который АВТОЗАПОЛНЕНИЯ через если указать, какие конкретные столбцы
Selection.AutoFill Destination:=Columns("BE:BQ"), Type:=xlFillDefault
То, что я борюсь с как заменить столбцы «BE: BQ» на требуемый код, который связан с первоначальной последней колонкой (LC). В идеале я хотел бы, чтобы он автоматически заполнил, чтобы добавить, скажем 10, новые столбцы. У тебя есть какой-нибудь совет?
В идеале, мне бы хотелось, чтобы код просматривал все листы в моей книге - но это, вероятно, немного продвинулось для меня!
спасибо, что заранее.
UPDATE
Спасибо за ваши комментарии предложенных. Я изменил код, как показано ниже. Это, в первую очередь, работало отлично. Однако с тех пор я столкнулся с двумя проблемами.
выпуск 1 - на некоторых листах, когда он заполняет поле даты, которое находится в строке 3, не заполняется. Он просто копирует дату, точно такую же, как в последней строке (то есть 01/06/2017, но отображается как июнь-17). Я бы хотел, чтобы это заполнилось через месяц за раз.
выпуск 2 - в строке 2 есть дата, которая является последним днем прошедшего месяца. В настоящее время это введено вручную, но по мере того как я разработал макрос, мне бы хотелось, чтобы это было изменено на формулу, равную дате в ячейке ниже минус 1 день. Я попытался сделать это, используя следующую формулу, но он пошатнулся!
sht.Cells(2, LC).Formula = "=" & Cells(3, LC) & "-1"
Любые советы о том, как исправить эти два вопроса, будут наиболее ценными.
Один подход 'клетки (1, LC) .resize (10) .entirecolumn.autofill', но вы действительно хотите, чтобы заполнить всю колонку (и выбора, обычно не рекомендуется или необходимости). – SJR
Этого не должно быть - я мог бы добавить в расчет последней строки и автозаполнение по этому пути. Как бы корректировать VBA для того, чтобы предположить, что LR является рассчитанной последней строкой? – hann783
, пожалуйста, переведите свой ответ на фактический ответ, вместо того, чтобы редактировать свой вопрос с ответом, затем отметьте ответ как принятый после отведенного времени, как передано. Это облегчает для других пользователей поиск ответа. \ –