Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+q
'
Windows("客户明细(" & i & ").xls").Activate
(这行如何声明i等于数字1、2. ....,我是新手,这是录制的,还是不会)
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("客户观察器(131228163429).xls").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
End Sub