从Excel文件复制标题（Excel VBA代码）

Question

早上好！

我正在处理一个excel文件，我想在其中复制一个工作表中的标题并将其粘贴到另一个工作表的标题之后。一个例子是：

表单1的数据标题为：

表2的数据标题为：

问题是两者中的标题数量并不是每个月的常量。所以我希望代码（VBA）将从A1开始的标题复制到最后一个使用过的sheet2单元格，并在最后一次使用sheet1单元格之后粘贴它。以下是我所知道的关于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

应该让你开始

菲利普