2010年8月19日星期四

合併工作表

Sub 合併工作表()

For x = 1 To 3

Sheets(x + 1).Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select

Next

End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱