vba activesheet遍历列

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，第NO.127-NO.130则，内容是：如何引用工作表、遍历工作表、新建“MY”工作表的方法等内容。

VBA过程代码127：如何引用工作表

Sub mynz()
 Dim Shs As Worksheet
 For Each Shs In Worksheets
 Shs.Select False
 Next
 End Sub

代码的解析说明：上述代码是将工资表的每个工作表进行select。

VBA过程代码128：激活一个EXCEL工作簿后，遍历工作表的方法

Sub mynz()
Dim c, i As Integer
 Dim s As String
 c = Worksheets.Count
 For i = 1 To c
 s = s & Worksheets(i).Name & Chr(13)
 Next
 MsgBox "工作簿中含有" & c & "个工作表，如下:" & Chr(13) & s
End Sub

代码的解析说明：上述过程使用For...Next 语句遍历工作簿中所有的工作表，并用消息框显示所有的工作表名称。

VBA过程代码129：激活一个EXCEL工作簿后，遍历工作表的方法

Sub mynz()
 Dim Sh As Worksheet
 Dim s As String
K=0
 For Each Sh In Worksheets
 s = s & Sh.Name & Chr(13)
 k=k+1
 Next
 MsgBox "工作簿中含有” & k & ”个工作表，如下:" & Chr(13) & s
End Sub

代码的解析说明：上述过程使用For Each...Next语句遍历工作簿中所有的工作表，并用消息框显示所有工作表名称。

VBA过程代码130：使用Add方法在工作簿中新建“MY”工作表

Sub mynz()
 Dim Sh As Worksheet
 With Worksheets
 Set Sh = .Add(after:=Worksheets(.Count))
 Sh.Name = "MY"
 End With
 End Sub

代码的解析说明：上述过程使用Add方法在工作簿中新建“MY”工作表。

越简单的事物往往越容易理解，简单的过程组合起来就是一个复杂的过程，我们要先认真掌握这些简单的过程，才能在可以为我们复杂的工程服务。

下面是我根据自己20多年的VBA实际利用经验，编写的四部教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友选择。

1. 第一套《VBA代码解决方案》PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备的资料。
2. 第二套《VBA数据库解决方案》PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
3. 第三套《VBA数组与字典解决方案》PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备资料。
4. 第四套《VBA代码解决方案》视频教程。目前正在录制，现在推出“每天20分钟，半年精进VBA”活动，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册79讲的课程，第二级阶段的优惠期开始。