请教如何快捷拆分与合并SHEET

pureshadow

请问如何快捷将总表按特定的要求分列成N个SHEET，又如果把这N个SHEET并成一个总表，先谢谢高手了！

至于SHEET怎么分，附件里有了。






结果在四楼
[ 本帖最后由 pureshadow 于 2008-8-13 20:48 编辑 ]

pureshadow

解决了哈

liangest

楼主怎么解决的讲一讲啊

pureshadow

附件：










这是N久以前做的啦,现在看看,不是一般的烂................

稍改一下.

-------------现在的小妖





Sub div()

Dim myrow As Long

Dim mycol As Long

Dim i As Long

myrow = [a65536].End(xlUp).Row

mycol = [iv1].End(xlToLeft).Column

Range("A1:A" & myrow).AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Range("A2:A" & myrow).SpecialCells(xlCellTypeVisible).Copy Destination:=Cells(1, mycol + 1)

ActiveSheet.ShowAllData

Range(Cells(1, 1), Cells(1, mycol)).AutoFilter

For i = 1 To Application.CountA(Columns(mycol + 1))

Sheets.Add

ActiveSheet.Name = Cells(i, mycol + 1)

Range(Cells(1, 1), Cells(1, mycol)).AutoFilter Field:=1, Criteria1:=Cells(i, mycol + 1)

Range(Cells(1, 1), Cells(myrow, mycol)).SpecialCells(xlCellTypeVisible).Copy Destination:=ActiveSheet.Range("a1")

Next

Sheets("sheet1").Select

Range(Cells(1, 1), Cells(1, mycol)).AutoFilter

Columns(mycol + 1).ClearContents

End Sub



也许,过些日子看看,这段,也不是一般的烂

[ 本帖最后由 pureshadow 于 2008-7-26 20:45 编辑 ]



今天再看，是有点烂……代码写得不够SEXY

[ 本帖最后由 pureshadow 于 2010-11-4 20:45 编辑 ]

zhaopin616

楼上的，你作的不具有变通扩展性啊  

pureshadow

[ 本帖最后由 pureshadow 于 2008-7-26 20:46 编辑 ]

payangyang0602

111

shouan

ok
[:34]

officewps

[:29]

officewps

[:29]
晕死，不具备扩展性