首页 > 解决方案 > 应用程序定义或对象定义 End(xlDown) 错误

问题描述

运行以下代码时,我收到错误应用程序定义或对象定义错误。错误在行突出显示Range("B2").End(xlDown).Offset(1, 0).Select

我什至尝试过使用Sheets("Sheet5").Range("B2").End(xlDown).Offset(1, 0).Select,但它仍然给出同样的错误。任何帮助深表感谢。

Worksheets("Sheet5").Select

Range("B2").End(xlDown).Offset(1, 0).Select

我的完整子

Sub test() 
    Workbooks("OC.xlsm").Activate 
    Worksheets("Sheet3").Select 
    Range("C13:E13").Copy 
    Worksheets("Live").Select
    Range("B2").End(xlDown).Offset(1, 0).Select 
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False 
    Application.OnTime Now + TimeValue("00:00:10"), "test" 
End Sub

标签: excelvba

解决方案


推荐阅读