Как вставить значение ячейки в заданный диапазон c?

Question

Я пытался скопировать указанное значение c из ячейки, а затем вставить новый столбец, в котором все записи должны иметь значение, скопированное мной в начале (это значение является датой из файла )

Я мог бы вставить новый столбец со значением, скопированным во все его записи,

Проблема в том, что мне нужно скопировать значение ячейки во всех строках из указанного c диапазон, который является dinami c, но с моим фактическим кодом я заполняю все строки до последней строки Excel, а не только специфицирую c range

Подробности

inicio = start переменной диапазона fin = конец переменной диапазона

Мой код

    Dim inicio As String
    Dim fin As String

    Cells.Find(What:="TOTAL GENERAL").Select
    Selection.End(xlDown).Select
    inicio = ActiveCell.row
    Selection.End(xlDown).Select
    fin = ActiveCell.row

    Range("A1").Select
    Selection.End(xlToRight).Select
    Selection.Copy

Я пытался использовать что-то подобное в коде mi, но это не сработало

    ActiveCell.EntireColumn.Insert.Range(ActiveCell, fin - 1).EntireColumn.Insert

Я надеюсь, что вы можете мне помочь, большое спасибо

Answer 1

Вот мой код:

Sub NewColumn()

    'Declarations.
    Dim RngInicio As Range
    Dim RngFin As Range
    Dim DatDate As Date

    'Setting variables.
    Set RngInicio = Cells.Find(What:="TOTAL GENERAL").End(xlDown)
    Set RngFin = RngInicio.End(xlDown)
    DatDate = Range("A1").End(xlToRight).Value

    'Inserting column.
    RngInicio.EntireColumn.Insert

    'Filling desired cells of the new column.
    Range(RngInicio, RngFin).Offset(0, -1).Value = DatDate

End Sub

Скажите, работает ли он для вас, если вам нужны какие-либо другие объяснения или улучшения. Кстати: старайтесь избегать выбора диапазонов (или объектов), которые вам нужны в вашем коде. ;)