excel里面VBA的问题99？

答案:3 悬赏:30 手机版

解决时间 2021-05-17 17:02

提问者网友：流星是天使的眼泪
2021-05-16 16:57

有12张工作表，表名分别为表一表二表三表四。。。。。我想为这12个工作表做个宏，一次清空所有数据，并且去掉引藏行。如何设置一个循环呢，用 for next 请VBA大侠帮忙写一下，谢谢！！！

Sub 清空宏()
Cells.Select
Selection.ClearContents
Selection.EntireRow.Hidden = False
End Sub

最佳答案

五星知识达人网友：西岸风
2021-05-16 18:30

Sub 清空()
For i = 1 To Sheets.Count
Sheets(i).UsedRange.Clear
Next
End Sub

全部回答

1楼网友：独钓一江月
2021-05-16 20:36

Sub yy() n = Array("表一", "表二", "表三", "表四", "表五", "表六", "表七", "表八", "表九", "表十", "表十一", "表十二") For i = 0 To 11 Sheets(n(i)).Cells.Clear Sheets(n(i)).Cells.EntireRow.Hidden = False Next End Sub

2楼网友：从此江山别
2021-05-16 19:53

假设这些表格是第2到第13个工作表 for i = 2 to 13 sheets(i).select Cells.Select Selection.ClearContents Selection.EntireRow.Hidden = False End Sub next i

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息