復制粘貼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