标题: 能不能自动实现分组？ [打印本页] 作者: 异想天开 时间: 2008-9-30 09:11 标题: 能不能自动实现分组？ 比如总表中有好多好多人员信息，他们都有一个分类值， 比如1-9
然后1组人就自动放到sheet1里
2组人就自动放到sheet2里
3组人就自动放到sheet3里
4组人就自动放到sheet4里
。。。。。。
顺序无所谓，放进去就好，但是当分类值改变时，对应的分表也作相应变化作者: pureshadow 时间: 2008-9-30 09:19
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作者: 异想天开 时间: 2008-9-30 09:34
oh, god
这段代码放在哪啊？作者: 异想天开 时间: 2008-9-30 09:34
还有。那里可以学这代码？作者: pureshadow 时间: 2008-9-30 19:59
ALT+F11
放在VBE里
不过里面要根据你自己表的情况进行局布修改.