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

Question

Начинающий вопрос здесь. Вот код, я работал на

Private Sub Copy() 

    Dim wb1 As Workbook 
    Dim wb2 As Workbook 

    Set wb1 = ThisWorkbook 
(wb2 defined somewhere here) 
With wb1.Sheets(1) 
.Columns("A").Copy Destination = wb2.Sheets(2).Range("A1") 
.Columns("B").Copy Destination = wb2.Sheets(2).Range("C1") 
.Columns("C").Copy Destination = wb2.Sheets(2).Range("R1") 
.... 

End With 

End Sub 

мне было интересно, если есть более короткий путь написания этого? Благодарю.

EDIT: Кажется, что этот код не работает. Это потому, что я не могу использовать метод копирования между двумя разными книгами?

Answer 1

Вы могли бы сделать функцию/к югу, так что вы не должны копировать полную линию для каждой строки, и вы должны изменить wb2.Sheets(2).Range("A1") к wb2.Sheets(2).Columns("A")

Функция/суб может выглядеть примерно так:

sub CopyColumn (Og_col as String, New_col as string) 
    Dim wb1 As Workbook 
    Dim wb2 As Workbook 

    Set wb1 = ThisWorkbook 
    'set wb2 = some other workbook 

    wb1.Sheets(1).Columns(Og_col).Copy Destination = wb2.Sheets(2).Columns(New_col) 

End Sub 

И затем в исходном коде вы изменяете:

.Columns("A").Copy Destination = wb2.Sheets(2).Range("A1") 
.Columns("B").Copy Destination = wb2.Sheets(2).Range("C1") 
.Columns("C").Copy Destination = wb2.Sheets(2).Range("R1") 
.... 

To:

Call CopyColumn("A", "A") 
Call CopyColumn("B", "C") 
Call CopyColumn("C", "R") 
.... 

Если у вас есть много столбцов, это должно быть лучше, код