复制粘贴excel vba答案

【问题标题】：copy paste excel vba复制粘贴excel vba
【发布时间】：2017-03-30 10:23:50
【问题描述】：

我有那些床单。第二张纸是我想要的样子。我现在正在尝试几个小时我会如何做到这一点。请任何人都可以帮助我走上正确的道路。

我正在从表 7(pic1) 复制到表 9(pic2)。要查找的 lastrow 应该是范围 F。

但我总是像 pic3 那样结束。

【问题讨论】：

?我在 Picture2 和 Picture3 之间看到的唯一区别是 A 列中“Chicken Italia”一词的间距，但它们根本不会出现在您说要从中复制的工作表上。你能澄清一下你在复制什么吗？
如果我们能真正看到它，它将帮助我们更正您的代码。请将其粘贴到问题中。
这就像我尝试制作的 pic2。但我的结果像 pic3 一样结束。 1 个配方名称和几种产品。所以第二个配方必须在产品列表的最后一行。我设法得到了空间。卜想在食谱结束的地方划线。我试过列结束但没有成功

标签： vba excel

【解决方案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

您可以在其中指定复制范围的起始角和结束角，以及粘贴范围的起始单元格。使用宏记录器准确了解粘贴值或其他类型的精美粘贴是如何工作的。

【讨论】：

没有图片。
让我这样试试。在 A 列中，我有配方名称。从 B 列我有多行数据。这些成分。第二个配方，配方名称应该在几种成分的下方。

【解决方案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

【讨论】：

你最好把这个包含在你原来的问题中。