For Each 语法

Sub demo1()
'声明工作表
Dim st As Worksheet
'For Each ... End
For Each st In Sheets
　　i = i + 1
　　If st.Name <> "部门" Then
　　　　Sheets("部门").Range("A" & i) = st.Name
　　End If

Next

End Sub