以下为《Excel快速拆分表格工具》的无排版文字预览，完整格式请下载

下载前请仔细阅读文字预览以及下方图片预览。图片预览是什么样的，下载的文档就是什么样的。

快速将工作表拆分为表头相同的工作簿

我们经常有如下场景：

=ROUNDUP(ROW(A1)/100,0)

日常红账跟进工作中，经常需要把整张大表拆分成不同的客户抬头发给客户确认

痛点：这个时候，如果把整个表给客户则会有数据安全风险，但一个个的筛选另存为单独的文件，却又相当麻烦和占用时间。

解决办法：

利用ecxcel中自带的开发工具 Visual Basic语言进行快速处理：

步骤一：

点击开发工具(Visual Basic

/

步骤二：

点击插入(模块

/

步骤三：

在空白处粘贴代码（附在文章末尾）

/

步骤四：

点击运行(运行字过程/用户窗体

/

步骤五：

在弹出的对话框中输入要拆分的列号10（如按拍档姓名，则在J列，从A到J为10）(点击确定

/

代码如下：

Sub 保留表头拆分数据为若干新工作簿()

Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%

c = Application.InputBox 内容过长，仅展示头部和尾部部分文字预览，全文请查看图片预览。 c)), Cells(i, 1).Resize(1, lc))

End If

Next

k = d.Keys

t = d.Items

For i = 0 To d.Count - 1

With Workbooks.Add(xlWBATWorksheet)

rng.Copy .Sheets(1).[a1]

t(i).Copy .Sheets(1).[a2]

.SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xlsx"

.Close

End With

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "完毕"

End Sub

[文章尾部最后300字内容到此结束,中间部分内容请查看底下的图片预览]

以上为《Excel快速拆分表格工具》的无排版文字预览，完整格式请下载

下载前请仔细阅读上面文字预览以及下方图片预览。图片预览是什么样的，下载的文档就是什么样的。