为什么不能删除“高一”所有工作表

laoau128 · 发表于 2017-4-8 09:41

为什么不能删除“高一”所有工作表

wj2368 · 发表于 2017-4-8 10:15

Sub 为什么用for循环无法删除()
For i = Sheets.Count To 1 Step -1
If InStr(Sheets(i).Name, "高一") Then
Sheets(i).Delete
End If
Next
End Sub

复制代码

你的循环与条件对不上号

laoau128 · 发表于 2017-4-8 11:40

wj2368 发表于 2017-4-8 10:15
你的循环与条件对不上号

哪里对不上

smdlyb · 发表于 2017-4-8 12:23

Sub 为什么用for循环无法删除()
Application.DisplayAlerts = False
For Each sh In Sheets
      If sh.Name Like "高一*" Then
         sh.Delete
      End If
Next
Application.DisplayAlerts = True
End Sub

maditate · 发表于 2017-4-8 12:38

测试了一下你的附件，结果是这样的。

I值对应工作表名
1 高一10
2 高一9
3 高一8
4 高一7
5 高一6
6 高一5
7 高一4
8 高一3
9 高一2
10 高一1
11 Sheet1

laoau128 · 发表于 2017-4-8 12:42

maditate 发表于 2017-4-8 12:38
测试了一下你的附件，结果是这样的。

I值对应工作表名

你的意思是循环对不上工作表名称，

如果非要这样写，有没有办法改

laoau128 · 发表于 2017-4-8 12:43

smdlyb 发表于 2017-4-8 12:23
Sub 为什么用for循环无法删除()
Application.DisplayAlerts = False
For Each sh In Sheets

循环对不上工作表名称，

仍然用原方法

如果非要这样写，有没有办法改

maditate · 发表于 2017-4-8 12:44

laoau128 发表于 2017-4-8 12:42
你的意思是循环对不上工作表名称，

如果非要这样写，有没有办法改

非要这样写真的不会写。

maditate · 发表于 2017-4-8 12:50

laoau128 发表于 2017-4-8 12:42
你的意思是循环对不上工作表名称，

如果非要这样写，有没有办法改

工作表在文件中的位置是随时可以移动的。现在第一位置表可能变成第五位置表，位置易变，希望用位置来对应工作表名很不现实。

smdlyb · 发表于 2017-4-8 12:55

把条件改成这样
If sheets(i).Name Like "高一*" Then

		自动登录	找回密码
密码			免费注册

[求助] 为什么不能删除“高一”所有工作表

评分

评分