Как скопировать точные ячейки в другой файл Excel?

Question

Мне нужно скопировать несколько ячеек из строки в другой лист Excel. Ячейки в целевом листе не находятся в одном ряду.

Начальная строка меняется, и поэтому моя идея заключается в следующем: запустить макрос, выбрать начальную строку и позволить макросу скопировать все необходимые ячейки в другой файл Excel.

Это возможно? Как?

Answer 1

Вот несколько разных примеров того, как скопировать целые строки на другой лист. Вы можете настроить его под свои нужды. Вы не дали много подробностей, но похоже, что ключом для вас будет выяснить, какую именно строку вы хотите скопировать и куда вы хотите ее вставить. Вы должны будете предоставить детали ваших данных, чтобы мы могли помочь с этим и этим вопросом.

Sub CopyToAnotherSheet()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet

    Set wsSource = Worksheets("Sheet1")
    Set wsTarget = Worksheets("Sheet2")

    'Copy the last row to the last row
    wsSource.Rows(wsSource.UsedRange.Rows.Count).Copy wsTarget.Rows(wsTarget.UsedRange.Rows.Count + 1)

    'Copy the last row to a new first row
    wsTarget.Rows(1).Insert xlDown
    wsSource.Rows(wsSource.UsedRange.Rows.Count).Copy wsTarget.Rows(1)

    'Copy a particular row to another particular row
    wsTarget.Rows(7).Insert xlDown
    wsSource.Rows(3).Copy wsTarget.Rows(7)

End Sub