尝试将一些数据复制并粘贴到另一个工作表,并且“所需对象”代码不断显示

时间:2014-12-30 18:34:59

标签: excel-vba excel-2007 vba excel

我是新手使用Excel VBA并继续获取对象需要错误。我试图从一张纸上复制一些数据并将其过去另一张并保存。有人可以帮忙吗?非常感谢

这是我的代码

Sub cp()

Sheets("Sheet1").Select

    Range("F4").Select
    Selection.Copy
    Sheets("Sheet8").Select
    emptyrow = Sheet8.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Cells(erow, 1).Select
    'Range("B2").Select
    'ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

1 个答案:

答案 0 :(得分:0)

我假设您要将范围“F4”从“Sheet1”复制到“Sheet8”上最后一行数据下面的行。如果是这样,我会用这个:

Sheets("Sheet1").Range("F4").Copy 
Sheets("Sheet8").Range("A:" & Rows.Count).End(xlUp).Offset(1,0).PasteSpecial Paste:=xlPasteValues

如果你不需要特殊粘贴,你可以更直接:

Sheets("Sheet1").Range("F4").Copy Sheets("Sheet8").Range("A:" & Rows.Count).End(xlUp).Offset(1,0)

要保存,假设您的代码位于要保存的工作簿中,请在代码末尾使用此代码:

Thisworkbook.Save

如果它位于不同的工作簿中,请在代码末尾使用它:

Workbooks("xxx").Save

其中“xxx”是工作簿的名称。