复制粘贴excel vba

Question

我有那些床单。 第二张纸是我想要的样子。 我现在正在努力尝试数小时。 请任何人在正确的轨道上帮助我。

我正在从工作表7（pic1）复制到工作表9（pic2）。 要查找的最后一行应该是范围F。

但是我总是最终像在pic3中那样。

Answer 1

不幸的是，我看不到图片，所以我不确定自己的表现如何。

通常，您想开始这样的事情：

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

选择数据并将其移到上方。 现在让我们开始幻想。

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

您可以在其中指定复制范围的起点和终点以及粘贴范围的起点。 使用宏记录器可以准确地找到粘贴值或其他类型的精美粘贴的工作方式。

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