excel数据自动拆分方法

要拆分的数据工作表名称为“数据源”，而不是你新建工作簿时的sheet1这种。手动改成“数据源”即可

1、Alt+F11打开VBA编辑器

（如果记不住快捷键还有一种简便的方法能够快速打开Excel VBA编辑器，右键单击工作表表情，然后选择查看代码就可以了）

2、如何根据表格中的订单号C列，将一张总表格拆分成不同的子工作表，每个子工作表的命名按照订单号命名？

Sub 拆分() 'C列相同的保存到一个工作簿

Dim I As Long, J As Long, S As String

Dim Str As String, xlbook As Workbook

Dim N As Long, R As Long, M As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For I = 1 To Range(\"S2985\").End(xlUp).Row

Str = Range(\"C\" & I).Text

If InStr(S, Str) = 0 And Str <> \"\" Then

S = S & Str & \" \"

N = N + 1

Workbooks.Add xlWBATWorksheet

Rows(I).Copy ActiveSheet.Rows(N)

R = Range(\"C:C\").Find(Range(\"C\" & I)).Row

M = R

Do

R = Range(\"C:C\").FindNext(Range(\"C\" & R)).Row

If R = M Then Exit Do

N = N + 1

Rows(R).Copy ActiveSheet.Rows(N)

Loop

ActiveWorkbook.SaveAs \"D:\\\" & Str & \".XLS\" '保存

ActiveWorkbook.Close

N = 0

Str = \"\"

End If

Next

Application.ScreenUpdating = True

Application.DisplayAlerts = True

MsgBox \"完成！\"

End Sub