Excel VBA 技巧分享

If related more than one workbook, it is better as below,

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")

....

Set nWs = Nothing
Set dWs = Nothing