VBA中For Each Next循环语句的应用方法

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

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

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

其中：Application.DisplayAlerts = False

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