从 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

这应该让你开始

菲利普