選 中被鎖定的單元格然後右鍵格式，解除鎖定……如果是因為有密碼的話我查啦一下……一、按ALT+F11 開啟VB編輯器二、雙擊左邊靠上的【工程資源管理器】中的【Microsoft Excel 物件】中的ThisWorkbook(如果找不到【工程資源管理器】請按CTRL+R)，在右邊的程式碼視窗貼入下面的程式碼：（根據實際情況按程式碼說明修改a、b的值，""中的內容）Sub 強行復制()"修改以下兩行""中的工作表名字Dim a As String: a = "Sheet1" "修改成你需要複製的表名Dim b As String: b = "Sheet2" "修改成貼上的空白表名"以下不需要修改Sheets(a).Cells.CopySheets(b).Range("A1").SelectActiveSheet.PasteEnd Sub三、回到EXCEL表，執行選單 【工具】－【宏】－【宏】，選擇 強行復制 這條宏，然後按執行。四、假如有提示說宏的安全性被限制此類的資訊，請在工具欄－【宏】－【安全性】裡面把【安全級】設定為【中】。
選 中被鎖定的單元格然後右鍵格式，解除鎖定……如果是因為有密碼的話我查啦一下……一、按ALT+F11 開啟VB編輯器二、雙擊左邊靠上的【工程資源管理器】中的【Microsoft Excel 物件】中的ThisWorkbook(如果找不到【工程資源管理器】請按CTRL+R)，在右邊的程式碼視窗貼入下面的程式碼：（根據實際情況按程式碼說明修改a、b的值，""中的內容）Sub 強行復制()"修改以下兩行""中的工作表名字Dim a As String: a = "Sheet1" "修改成你需要複製的表名Dim b As String: b = "Sheet2" "修改成貼上的空白表名"以下不需要修改Sheets(a).Cells.CopySheets(b).Range("A1").SelectActiveSheet.PasteEnd Sub三、回到EXCEL表，執行選單 【工具】－【宏】－【宏】，選擇 強行復制 這條宏，然後按執行。四、假如有提示說宏的安全性被限制此類的資訊，請在工具欄－【宏】－【安全性】裡面把【安全級】設定為【中】。