Excel Home
全球知名的Excel资源网站之一

For Each…Next循环语句的应用

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

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

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

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

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

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

赞(13)
未经允许不得转载:ExcelHome » For Each…Next循环语句的应用
分享到

关于我们联系我们
本站特聘法律顾问:李志群律师   沪ICP备11019229号-2

沪公网安备 31011702000001号

征信