- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# 天魔黑羽
你的錯誤是因為先copy 然後解除保護時,系統無法保存copy的資料而產生的.
可參考Hsieh版主的程式 來執行
下面程式碼是針對 你原來程序來修改- Sub 執行()
- 'Rows("2:5").Select
- 'Selection.Copy
- Sheets("總表").Select
- With ActiveSheet
- .Unprotect "0000"
- Sheets("key").Rows("2:5").Copy
- .Rows("2:2").Select
- ' ActiveSheet.Paste
- .Paste
- .Protect "0000"
- End With
- Sheets("key").Select
- End Sub
|
|
發表於 2010-12-23 16:57
| 