如何快速删除excle中的多个工作表

2025年03月22日 19:06

有3个网友回答

网友（1）：

按住shift键，选择第三行，然后拖到最后选择，成黑色显示后，按下backspace键试试

网友（2）：

每次都是提完问题就琢磨出来了。
用CTRL选择要用的工作表，然后就开始删除即可

网友（3）：

Sub ShtDel()
Dim r As Long
Dim Sht As Worksheet
Application.DisplayAlerts = False
For Each Sht In Worksheets
i = i + 1
r = Sheets(i).UsedRange.Rows.Count
If r = 2 Then
Sht.Delete
i = i - 1
End If
Next
Application.DisplayAlerts = True
Set Sht = Nothing
End Sub

最新问答

三明小西餐厅加盟高三孝碳烤吐司怎么样？

钛元素基态原子的电子排布式为？晶体内与每个Ti原子紧邻的氧原子数为多少个？

CPU使用率和内存。显卡有关系吗谢谢了，大神帮忙啊

描写雪景的作文。急急急！

无缝不锈钢管的工艺制作流程是什么，求解，先谢过各位了。

lte f频上行干扰影响什么指标

许嵩哪一句歌词惊艳了你？

的结局是什么权力的游戏第八季三傻和二丫最后死了

床头向东，尾向西。床头是窗，左侧也是窗，这样布置好吗？

美孚一号那款是柴油用的，我的车是江铃陆风X8柴油版，想用全合成的请高手指点。