如何按条件拆分工作表？

菜鸟首问 · 发表于 2009-3-5 16:09

按条件拆分工作表.rar (8.76 KB, 下载次数: 304)

按条件拆分工作表，并保留表头和表尾，谢谢。

菜鸟首问 · 发表于 2009-3-5 16:30

有高手能帮帮忙吗？

菜鸟首问 · 发表于 2009-3-5 16:46

有人愿意帮助吗？

LangQueS · 发表于 2009-3-5 17:06

参考：

按条件拆分工作表.rar (38.23 KB, 下载次数: 944)

菜鸟首问 · 发表于 2009-3-5 17:33

感谢斑竹回复，但似乎代码还有些小问题，黄色区域的表头A1：E2、表尾A40：E42，没能复制到新工作表中

HHAAMM · 发表于 2009-3-5 17:54

Sub Macro1()
Dim x%, x1%, x2%, m$
x1 = 3
m = Sheets("总表").Cells(3, 1)
For x = 4 To 39
      If m <> Sheets("总表").Cells(x, 1) Or x = 39 Then
         Sheets.Add
         With ActiveSheet
            .Name = m
            .Range(.Cells(3, 1), .Cells(x2 + 3, 5)) = Sheets("总表").Range(Sheets("总表").Cells(x1, 1), Sheets("总表").Cells(x + 2, 5)).Value
         End With
         Sheets("总表").Range("A1:E2").Copy
         Sheets(m).Paste
         Sheets("总表").Range("A40:E42").Copy
         Sheets(m).Range("A" & x2 + 4).Select
         ActiveSheet.Paste
         x1 = x
         m = Sheets("总表").Cells(x, 1)
         x2 = 0
      Else
         x2 = x2 + 1
      End If
Next
End Sub

菜鸟首问 · 发表于 2009-3-6 08:08

谢谢HHAAMM帮助，但如果“班级”的行数发生变化，范围变动了，就会出现一些小状况。
For x = 4 To 39，请问这个定义的是什么？

HHAAMM · 发表于 2009-3-6 11:47

那就另当别论了，很好办的！！

extlocal · 发表于 2010-12-22 13:33

收藏，正需要呢

qixy · 发表于 2012-5-24 05:59

有的则留下来

		自动登录	找回密码
密码			免费注册

[求助] 如何按条件拆分工作表？