复制粘贴excel vba

我有这些床单。 第二张是我该怎么做。 我现在正在尝试几个小时，我会如何做到这一点。 请任何人都能帮助我走上正轨。

我从表7（图1）复制到表9（图2）。 寻找的lastrow应该是范围F.

但是我总是像图3一样结束。

Answer 1

不幸的是我看不到这些照片，所以我不确定自己是怎么样的。

一般来说，你想开始这样的事情：

Sheets("Sheet 7").Activate Range("A1:N8").Copy Sheets("Sheet 9").Activate Range("A1").Paste 

要select您的数据，并将其移动。 现在让我们来看看吧。

 Dim I as long Dim J as long Dum K as long Dim L as long Dim O as long Dim P as long I = WorkSheetFunction.Vlookup(you know how a vlookup works) J = WorksheetFunction.Sum(You really should know this one) ..... P = 7 Sheets("Sheet 7").Activate Range(I&J:O&P).Copy Sheets("Sheet 9").Activate Range(K&L).Paste 

您可以指定复制范围的开始和结束angular以及粘贴范围的开始单元格。 使用macroslogging器确切地了解粘贴值或其他types的奇特粘贴的工作原理。

Answer 2

这是迄今为止的代码

 Sub Test1() Dim lrow As Long Dim scr1 As Range 'source range Dim scr2 As Range Dim drng As Range 'destination range Dim drng2 As Range Application.ScreenUpdating = False Sheet7.Activate Set drng = Sheet9.Range("A3") Set drng2 = Sheet9.Range("D3") Set scr1 = Sheet7.Range("RecipeHeader") scr1.Select Selection.Copy Sheet9.Activate drng.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheet7.Activate Set scr2 = Sheet7.Range("FoodCost_full") scr2.Select Selection.Copy Sheet9.Activate drng2.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheet7.Range("ClearHeader").ClearContents Sheet7.Range("Clearfood").ClearContents Application.CutCopyMode = False Application.ScreenUpdating = False 'lrow = Range("F" & Rows.Count).End(xlUp).Select End Sub