Excel VBA 技巧分享2

Further, if only paste value without format, here is for reference.

Sub CopySheetD2SheetN()

    Dim nWs As Worksheet, dWs As Worksheet

    Set nWs = ActiveSheet
    Set dWs = Workbooks("DataBase.xlsx").Sheets("Data")

    dWs.Range("A2:J2").Copy
    nWs.Range("A2").PasteSpecial xlPasteValues

    ....

    MsgBox "Completed!", vbInformation, "Message"

    Set nWs = Nothing
    Set dWs = Nothing

End Sub