0

早上好！

我正在处理一个 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

我知道这段代码有问题，因为它没有运行。任何人都可以帮助解决这个问题。

万分感谢！

4

1 回答 1

2

试试下面的：

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

那应该让你开始

菲利普

于 2013-04-02T13:21:52.337 回答