0 
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

エクセル以前End(xlUp)は使っていた

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

しかし、これを使用してデータを貼り付けることができませんでした。

編集:エラーは..wbk の前に余分でしたが、以前の行データを置き換えるようになりましたが、最後に使用した行の下にデータを貼り付けたいです。何かアドバイス？

4

1 に答える 1

0

データの下に貼り付けるには、貼り付ける前にデータの下の行 1 を選択する必要があります

試したのと同じ方法を使用するには:

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

または、別の方法として次を試してください。

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

エラーを修正するには、これを使用してみてください：

wbk.Close
于 2013-06-17T12:49:46.757 に答える