For Each…Next循环语句的应用

For Each…Next循环语句的应用

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

1、将1到100的自然数写入活动工作表A1:A100的区域中

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

2、删除除活动工作表外的其他工作表

Sub 删除工作表()Dim Sht As WorksheetApplication.DisplayAlerts = False '删除工作表时不提示警告对话框For Each Sht In WorksheetsIf Sht.Name <> ActiveSheet.Name Then Sht.DeleteNextEnd Sub

其中：Application.DisplayAlerts = False

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。