Копирование заголовков из файла excel (код Excel VBA)

Question

Доброе утро!

Я работаю над файлом excel, в котором хочу скопировать заголовки с одного листа и вставить его после заголовков другого листа. Пример:

Лист 1 имеют заголовки данных, как:

лист 2 имеют заголовки данных, как:

Вопрос заключается в том, что число заголовков в обеих не делает remian постоянная каждый месяц , Поэтому я хочу, чтобы код thie (VBA) копировал заголовки, начиная с A1, до последней используемой ячейки листа2 и вставлял ее после последней используемой ячейки листа1. Вот код, который я написал в меру моих знаний о VBA:

Sub LastColumnInOneRow() 
'Find the last used column in a Row: row 1 in this example 
    Dim LastCol As Integer 
    Dim LastCell As String 
    Dim last As Long 
    Dim rng As Range 
    With Sheets("Data") 
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
Set rng = Sheets("Data").Cells 
LastCell = last(3, rng) 
Range("A1" & LastCell).Select 
Selection.Copy 
End With 
End Sub 

Я знаю, что есть что-то не так с этим кодом, как это Безразлично запустить. Может ли кто-нибудь помочь с этой проблемой.

Спасибо тонну!

Answer 1

попробуйте ниже:

Sub LastColumnInOneRow() 

Dim rngSource As Range 
Dim rngDestination As Range 

sheets("Sheet2").select 
Set rngSource = Range(Cells(1, 1), Cells(1, Range("A1").End(xlToRight).Column)) 
rngsource.copy 

sheets("Sheet1").select 
Set rngDestination = Range("A1").End(xlToRight).Offset(0, 1) 

' rngSource.Copy Destination:=rngDestination 
' rngDestination.pastespecial xlpasteall 
rngDestination.select 
activesheet.paste 
End Sub 

, которые должны получить вы начали

Филипп