返回列表 上一主題 發帖

[發問] 刪除部分工作表

asch2007

帖子
15 
主題
4 
精華
0 
積分
25 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2013-8-7 
最後登錄
2016-7-6 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-9 16:07 | 顯示全部帖子

[發問] 刪除部分工作表

我把要刪除的工作表名稱都放在A欄
但不知那裏有錯,懇請各位高手賜教
感激不盡
  1. For Each sht In Worksheets
  2.       
  3.   For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
  4.       
  5.       If sht.name = Cells(i, 1) Then
  6.       
  7.       sht.Delete
  8.       
  9.       
  10.       End If
  11.       
  12.       Application.DisplayAlerts = False

  14.                               
  15.     Next
  16.       

  18. Next
  19.          
  20.    
  21. End Sub
複製代碼
收藏 分享
123

asch2007

帖子
15 
主題
4 
精華
0 
積分
25 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2013-8-7 
最後登錄
2016-7-6 

論壇贊助勳章
2#
發表於 2014-10-13 11:16 | 顯示全部帖子
[版主管理留言]
  • GBKEE(2014/10/13 11:34): 附上檔案看看

回復 2# 蝕光迴狼


很抱歉沒說清楚
我想要刪除多餘的工作表，但不是全刪
要刪除工作表的名稱，放在另一個工作表中

我嚐試寫了一段程式，執行中間有出錯
錯誤訊息：
執行階段錯誤'424':
此處需要物件

偵錯結果停在
If sht.name = Cells(i, 1) Then

但我不知錯那裏
希望各位大大指點迷津

感激不盡
123

TOP

asch2007

帖子
15 
主題
4 
精華
0 
積分
25 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2013-8-7 
最後登錄
2016-7-6 

論壇贊助勳章
3#
發表於 2014-10-16 15:37 | 顯示全部帖子
回復 5# luhpro


    感謝幫忙，測試結果第一個還是不行，但第二個成功！！
123

TOP

asch2007

帖子
15 
主題
4 
精華
0 
積分
25 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2013-8-7 
最後登錄
2016-7-6 

論壇贊助勳章
4#
發表於 2014-10-16 15:38 | 顯示全部帖子
回復 6# Hsieh


測試結果還是有問題，我再研究看看
感謝
123

TOP

asch2007

帖子
15 
主題
4 
精華
0 
積分
25 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2013-8-7 
最後登錄
2016-7-6 

論壇贊助勳章
5#
發表於 2014-10-16 15:49 | 顯示全部帖子
test1.zip (24.66 KB)

經測試結果只有"刪表二"成功
其他我再研究看看
123

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題