我是新手使用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
答案 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”是工作簿的名称。