"用VBA程式碼實現！

"按alt+f11進入VBE編輯視窗，然後選擇插入----模組----會開啟一個模

"塊視窗，把下面的程式碼複製進去--儲存，再次按alt+f11返回excel視窗

"按alt+f8開啟執行宏視窗，會看到test宏，執行它就可以了！

"-------------以下程式碼部分，可全部複製我的答案到模組視窗---------------

Option Explicit

Sub test()

Dim a As Range

Set a = Sheets("sheet1").UsedRange

a.Copy

Sheets("sheet2").Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Set a = Nothing

End Sub