返回列表 上一主題 發帖

[發問] 關於工作表移動到新活頁簿

feecshyrnd

帖子
28 
主題
13 
精華
0 
積分
78 
點名
0  
作業系統
windows xp 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2013-12-4 
最後登錄
2023-3-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-17 16:52 | 顯示全部帖子

[發問] 關於工作表移動到新活頁簿

以下代碼是將活頁簿裡所有 sh開頭的工作表刪除
For I = Worksheets.Count To 1 Step -1
If Worksheets(I).Name Like "Sh*" Then
Worksheets(I).Delete
End If
Next

改成下列方式可以將 sh開頭的工作表移動到新活頁簿裡
工作表可以正確移動但代碼卻會出現錯誤
不知道問題出在那裡
For I = Worksheets.Count To 1 Step -1
If Worksheets(I).Name Like "Sh*" Then
Worksheets(I).MOVE
End If
Next
收藏 分享

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題