能不能自动实现分组？

异想天开

比如总表中有好多好多人员信息，他们都有一个分类值， 比如1-9
然后1组人就自动放到sheet1里
2组人就自动放到sheet2里
3组人就自动放到sheet3里
4组人就自动放到sheet4里
。。。。。。
顺序无所谓，放进去就好，但是当分类值改变时，对应的分表也作相应变化

pureshadow

Sub del()
Dim i As Long
Dim c, s
Application.DisplayAlerts = False
For Each c In Sheets
If c.Name <> "Sheet1" Then
s = s & c.Name & ","
End If
Next
Sheets(Split(Left(s, Len(s) - 1), ",")).Delete
Application.DisplayAlerts = True
End Sub

异想天开

oh, god
这段代码放在哪啊？

异想天开

还有。那里可以学这代码？

pureshadow

ALT+F11
放在VBE里
不过里面要根据你自己表的情况进行局布修改.