怎么把合并的excel文件拆分

1.如何将一个excel工作表的数据拆分成多个文件

操作步骤：原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。

点击【开发工具】-【Visual Basic】或者Alt F11的快捷键进入VBE编辑界面。如下图所示插入一个新的模块。

如下图，粘贴下列代码在模块中：Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim columnNum As Integer myRange = Application。 InputBox(prompt：="请选择标题行："， Type:=8) myArray = WorksheetFunction。

Transpose(myRange) Set titleRange = Application。 InputBox(prompt：="请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”"， Type:=8) title = titleRange。

Value columnNum = titleRange。 Column Application。

ScreenUpdating = False Application。DisplayAlerts = False Dim i&, Myr&, Arr, num& Dim d, k For i = Sheets。

Count To 1 Step -1 If Sheets(i)。Name "数据源" Then Sheets(i)。

Delete End If Next i Set d = CreateObject("Scripting。 Dictionary") Myr = Worksheets（"数据源"）。

UsedRange。Rows。

Count Arr = Worksheets（"数据源"）。Range(Cells(2, columnNum), Cells(Myr, columnNum)) For i = 1 To UBound(Arr) d(Arr(i, 1)) = "" Next k = d。

keys For i = 0 To UBound(k) Set conn = CreateObject("adodb。connection") conn。

Open "provider=microsoft。jet。

oledb。4。

0;extended properties=excel 8。0;data source=" & ThisWorkbook。

FullName Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'" Worksheets。 Add after:=Sheets(Sheets。

Count) With ActiveSheet 。Name = k(i) For num = 1 To UBound(myArray) 。

Cells(1, num) = myArray(num, 1) Next num 。Range("A2")。

CopyFromRecordset conn。 Execute(Sql) End With Sheets(1)。

Select Sheets(1)。Cells。

Select Selection。 Copy Worksheets(Sheets。

Count)。Activate ActiveSheet。

Cells。Select Selection。

PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application。 CutCopyMode = False Next i conn。

Close Set conn = Nothing Application。 DisplayAlerts = True Application。

ScreenUpdating = TrueEnd Sub如下图所示，插入一个控件按钮，并指定宏到刚才插入的模块代码。 点击插入的按钮控件，根据提示选择标题行和要拆分的列字段，本例选择“姓名”字段拆分，当然也可以选择C列的“名称”进行拆分，看实际需求。

代码运行完毕后在工作簿后面会出现很多工作表，每个工作表都是单独一个人的数据。 具体如下图所示：8注意：1）原始数据表要从第一行开始有数据，并且不能有合并单元格；2）打开工作簿时需要开启宏，否则将无法运行代码。

2.Word文档里面加入表格的合并和拆分怎么弄

方法/步骤

打开Word文字处理系统，在插入菜单点表格；

选择插入表格，根据实际需要，输入列数（如4），行数（如16），按确定；

在表格里输入文字；

根据需要对局部进行调整，用合并单元格，将几个单元格合并成一个单元格，通过这个方法，可以将局部的几列合并为一列或者将几行合并成一行；

根据需要对局部也可以利用拆分单元格，将一个单元格变成几个单元格，譬如要将一行变成几行时，先利用回车换行的方式将需要改变的那一行的行高增加，需要增加几行就按几下回车；

然后用合并单元格将3列变为一列；

再将这一行拆分为3行，以便输入三个家庭成员的信息；

借助合并单元格和拆分单元格的帮助，制作表格的时候，再不规则的表格，我们都有办法应付了，是不是很方便？