Sub 写入1刚才100的自然数()
Dim c As Range, i As Byte
i = 1
For Each c In Range("A1:A100")
c.Value = i
i = i + 1
Next c
End Sub

Sub 删除工作表()
Dim Sht As Worksheet
Application.DisplayAlerts = False '删除工作表时不提示警告对话框
For Each Sht In Worksheets
If Sht.Name <> ActiveSheet.Name Then Sht.Delete
Next
End Sub

其中：
Application.DisplayAlerts = False

这行代码的作用是设置删除工作表时，不显示警告提示对话框。大家可以试试不写这行代码效果有什么区别。

上一篇：excel vba教程：比较运算符的计算顺序 下一篇：excel怎么做表格：用自定义函数合并A2:B8中的数据到一个单元格

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。