Question

Sub Macro5（） “ 'Macro5宏 “

'
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”）。选择

但我无法使用此功能粘贴数据。

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

干杯马修

Answer 1

要粘贴数据，请在粘贴之前选择数据下方的第1行

使用与尝试相同的方法：

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

或者作为替代方法尝试：

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

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

wbk.Close

excel错误：无效或不合格的错误

1 个答案: