如何把<em>excel</em>表格按行拆分成多个<em>excel</em

1.数据如下百图内容一样，都在一个电子表格内。

2.首先将第一个电子表格变大，

3.选择数度据，分列。

4.先选中该单元格，是单元格全被选中，如图：知

5.选中后点击数据中的分列按钮。就会弹出一个新的弹框。如图;

6.在新弹道出的窗口中选择“固定宽度，然后点击下一步。

7.之后再新弹出的弹窗中就可专以调整间距，分列出来。然后点击完成。

8.这样我们就实现了一个单元格里的内属容也可以复制粘贴了，是不是很方便。

条件拆分？估计你想实现的是高级筛选新建表功能。
新工7a64e4b893e5b19e365作簿保存在d:\
Sub 统计()
Dim I As Integer, zROW As Integer, zN As Integer
Dim zNAME As String, zPATH As String

ActiveWindow.Caption = "汇总"

zN = 1

'******下面zROW=的是你要打印的行数

zROW = 5

Range("A1").Select

Do Until ActiveCell = ""

Workbooks.Add

Application.DisplayAlerts = False

ActiveWindow.Caption = "BOOK"

Do Until Sheets.Count = 1

Sheets(2).Delete

Loop

Application.DisplayAlerts = True

Windows("汇总").Activate

Rows(ActiveCell.Row & ":" & ActiveCell.Row + zROW - 1).Copy

Windows("BOOK").Activate

Range("A1").Select

ActiveSheet.Paste

ChDir "D:"

ActiveWorkbook.SaveAs Filename:="D:\" & zN & ".xls", FileFormat:=xlNormal

ActiveWindow.Close

ActiveCell.Offset(zROW).Select

zN = zN + 1

Loop
End Sub

100万条数据只有101张表，没有zd200。你这样的问题需要使用宏来实现，宏不是那么容易教会别人的，我把宏代内码写在下面，你琢磨容一下吧，但愿有缘。
SUB 按1条数据拆分表()
DIM ST,I,N,M
SET ST=ACTIVESHEET
N=ST.USEDRANGE.ROWS.COUNT
M=ST.USEDRANGE.COLUMNS.COUNT
I=1
WHILE I<=N
WORKBOOKS.ADD
ST.CELLS(I,1).RESIZE(10000,M).COPY ACTIVESHEET.CELLS(1,1)
I=I+10000
WEND
END SUB