复制区域和粘贴区域不是相同的大小错误？

Question

我希望VBA找到名为＆＃34; Apple＆＃34;在Sheet1中（在行a1中）并将该数据粘贴到名为＆＃34; Sheet2中的橙色

的单元格标题中

Sheet1     Sheet2

Apple      Orange
1
2
3
4

我正在尝试不包含单元格标题，因此它只会抓取数字。

下面的内容会起作用吗？

Sheet1.Rows("1:1").Find(What:="Apple", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireColumn row-1.Copy sheet2.range("a2")

像entirecolumn row -1这样的东西，以便它不会复制标题单元格...
不知道我在做什么，但帮助会很棒！

Answer 1

使用此命令：c = ActiveCell.Column您将c设置为当前活动单元格的整个列。接下来，当您使用s1.Columns(c).Copy s2.Range("a2")时，您正在复制存储在c中的整个列，然后尝试将其粘贴到指定列范围（a2）中的第二个单元格中。这导致它总是比复制到剪贴板少一个单元格。