Скопируйте данные и измените порядок столбцов и вставьте их в другую книгу.

Question

Извините, что оставил вопрос без кода, но не уверен, с чего начать. Мне нужно скопировать данные из рабочей книги и вставить в целевую рабочую книгу, изменив порядок столбцов перед вставкой в ​​целевую рабочую книгу. Обе книги имеют номера в своем первом столбце, так что если столбец имеет номер 5 в исходной книге, то этот столбец должен быть вставлен в целевую книгу, где верхний столбец имеет номер 5. У нас также есть несколько столбцов в исходной книге, где не будет никакого числа в Первый столбец, так как эти данные не требуются в пункте назначения. У меня есть 1-20 columns.data начинается с 3-го ряда и должен быть вставлен в 3-й строке в целевой книге. Может кто-нибудь помочь, пожалуйста.

Answer 1

Поскольку у меня нет образца листа, я просто могу дать подсказку. На вашем месте я использовал бы метод Range.Find(), чтобы найти нужную мне колонку. Затем вы можете вставить данные в этой позиции.

Дополнительная информация: https://docs.microsoft.com/de-de/office/vba/api/excel.range.find

Sub Find()

    Dim rng As Range

    Set rng = YourTable.Range("3:3").Find("5", LookIn:=xlValues, LookAt:=xlWhole)

    If (Not rng Is Nothing) Then
        Debug.Print rng.Column
    Else
        Debug.Print "Nothing found"
    End If

End Sub