vba - 复制区域和粘贴区域大小不一样？

Question

我希望 VBA 在 Sheet1 中找到名为“Apple”的单元格标题（在行 a1 中）并将该数据粘贴到名为“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) 中的第二个单元格中。这导致它总是比您复制到剪贴板的单元格少一个。