excel错误：无效或不合格错误答案

【问题标题】：excel error: invalid or unqualified errorexcel错误：无效或不合格错误
【发布时间】：2013-06-13 08:17:00
【问题描述】：

Sub Macro5()
    '
    ' Macro5 Macro
    '
    
    '
    Dim wbk As Workbook
    Application.ScreenUpdating = False
    
    Set wbk = Workbooks.Open("g:\Work\EU Personal Assignment.xlsx")
        Range("O2:R2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Windows("Dashboard_for_Roshan.xlsm").Activate
        Range("A65536").End(xlUp).Select
        ActiveSheet.Paste
        Windows("EU Personal Assignment.xlsx").Activate
        Range("A2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Application.CutCopyMode = False
        Selection.Copy
    
    
        Windows("Dashboard_for_Roshan.xlsm").Activate
        Range("E65536").End(xlUp).Select
        ActiveSheet.Paste
        Windows("EU Personal Assignment.xlsx").Activate
        Range("AC2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Application.CutCopyMode = False
        Selection.Copy
    
        Windows("Dashboard_for_Roshan.xlsm").Activate
        Range("F65536").End(xlUp).Select
        ActiveSheet.Paste
    
    
    
    Call .wbk.Close(False) <- i get the error here 
    
    
End Sub

在 excel End(xlUp) 之前，我使用的是

Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Select

但我无法使用它粘贴数据。

编辑：错误是 .wbk 之前的额外 . 但现在它替换了前一行数据，而我希望它将数据粘贴到最后使用的行下方。有什么建议吗？

【问题讨论】：

发布的代码与您的要求无关。试试Range("A" & Range("A" & Rows.count).End(xlup).ROw+1).Value = "last cell + 1"
你好，实际上这是我得到的原始错误，我已修复。谢谢

标签： vba excel excel-2010

【解决方案1】：

要粘贴到数据下方，您需要在粘贴前选择数据下方的第 1 行

使用与您尝试相同的方法：

Range("A65536").End(xlUp).Offset(1, 0).Select

或者作为替代方法尝试：

Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select

要修复您的错误，请尝试使用：

wbk.Close

【讨论】：