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

laoau128 · 发表于 2017-4-14 21:32

maditate 发表于 2017-4-8 14:09
办法总是有的，就是不太经济。
无限循环不断的判断删除，直到没有符合条件为止。

还有一个问题

cflood · 发表于 2017-4-14 21:49

用F8逐语句运行一下看看就明白了

laoau128 · 发表于 2017-4-14 21:57

cflood 发表于 2017-4-14 21:49
用F8逐语句运行一下看看就明白了

不会用F8，请用文字解释一下吧

maditate · 发表于 2017-4-15 10:54

laoau128 发表于 2017-4-14 21:31
Sub d1()
Application.DisplayAlerts = False
For i = 1 To Sheets.Count

工作表上的行就呆如同体育课上同学列队，每位同学都是有1、2、3.....编号的，当体育老师从1开始叫号，叫到特殊号后出列，此时原队列中后面的同学就自动往前挤一下，那么编号就自动提升了一位。体育老师叫到5号出列，5号出列后原来的6号就自动变成了5号，如果原来的6号（现在的5号）也属出列的人，体育老师叫6号时就把他给漏了。如果体育老师用减1的方法，再从5号叫起就不会再有漏叫的了。

laoau128 · 发表于 2017-4-15 16:26

maditate 发表于 2017-4-15 10:54
工作表上的行就呆如同体育课上同学列队，每位同学都是有1、2、3.....编号的，当体育老师从1开始叫号，叫 ...

如果用for each循环可以从i=1前面开始删除

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

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