最近公司来了一段数据要分类，是一个EXECL文件，要求是将SHEET1中所有A列中以“[G]组别”开头，到 A列中 数据为空的部分逐个剪切，然后粘贴到一个新的工作表中，如SHEET10，
我自己是录制了个简单的宏，但是只能一个一个的操作，代码如下：

Sub Macro3()
'
' Macro3 Macro
' 宏由 hbgsw 录制，时间: 2010-5-9
'
' 快捷键: Ctrl+q
'
    Selection.Cut
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Paste
    Sheets("Sheet1").Select
End Sub

从代码中可以看出，缺点很明显，只能一个一个的操作，我的想法是
加入个While 循环语句 ，并定义sheet1表格中的A1到A200000内容为搜索对象，
如果查找到内容为“[G]组别” 则定义为开始， 在往下查找到内容为空的地方为一个结束，
并执行我上面录制的这个代码，进行While循环判断，直至操作完成。
不好意思，我只懂点皮毛，请各位高手帮忙解决下。

本来想把原文件发上来的，为何我发不了附件？？？？
实在没有办法，只好发到我的网盘，地址http://ishare.iask.，请各位高手帮我看下。

[ 本帖最后由 hbgsw 于 2010-5-10 10:49 编辑 ]

刚看了你的表, 发现没那么简单.

1\到最后增加一列.  判断 ,凡以 G 开头的.就填入1 ,  如果不是以这个开头,但不为空,那么变上面那个数据.

2\再增加一列,顺序号.

3\以 1 增加那列为排序.

4\复制所以 1 的行,到新文件.

5\以 2 增加那列排序还原顺序.



[ 本帖最后由 风吹过b 于 2010-5-10 17:06 编辑 ]

本来想把程序完善下的，可能难得确实高了点，算了。反正工作已经干完了，谢谢版主了。。。