excel表格怎么把每行分成独立的excel文件？

先把抄每个袭人名放在第一行的每个单元格里，然百后按ALT+F11进入vba编辑器，输度入以下代码，按知F5运行即可。最后把横向的人名删除道。

Sub rowtocloumn()

Dim i As Integer

Range("A1").Select

For i = 1 To Range("A1").End(xlToRight).Column

Range("A" & i) = Cells(1, i)

Next i

End Sub

打开百Excel文件，点击工作表页签（原始Sheet），右键——查看代度码——粘贴入下列内专容
Sub ttt()
Dim i As Integer
i = Sheet1.Range("a65536").End(xlUp).Row
Sheets.Add , Sheets(1), i - 1
For n = 2 To i
Sheets(n).Name = Sheet1.Range("d" & n)
Sheet1.Rows(1).EntireRow.Copy Sheets(n).Rows(1)
Sheet1.Rows(n).EntireRow.Copy Sheets(n).Rows(2)
Next
End Sub
关闭VB窗口，运行宏ttt看看是否是你属要的。
拆分EXCEL表格，我拆得多了：
将一个zhidaoEXCEL中的多个sheet表版拆分为多个EXCEL表:
按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候权一会就OK了。

Sub SaveToWbk()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub

(改成只粘数值的）

建立宏:

Sub NewFile()

If Cells(1, 1) = "" Then Exit Sub

Application.ScreenUpdating = False

MyName = ActiveWorkbook.Name
MySheet = ActiveSheet.Name
MyDir = ActiveWorkbook.Path & "\"

RowNo = 1
FileCount = 0

Do While Cells(RowNo, 1) <> ""

FileCount = FileCount + 1
Workbooks.Add
Workbooks(MyName).Sheets(MySheet).Rows(RowNo & ":" & RowNo + 29).Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:=MyDir & FileCount
RowNo = RowNo + 30
ActiveWorkbook.Close

Loop

Application.ScreenUpdating = True
MsgBox (FileCount & " files created.")

End Sub

这是从第一行开始拷的。如果要改变开始拷的行数，把第一个e79fa5e98193e4b893e5b19e365
RowNo = 1
改成你要的行数就行。

另外，这个是要求每三十行的第一个单元格不能是空格。