把一个excel拆分成多个工作表

工作中经常会遇到把一个工作表分成若干个表格的时候,以其中的某个条件命名表
格名统计分类建立表格,如果数据很多的话工作量也是很大的,有没有准确快捷的
办法呢,和小编一起操作吧。

操作方法

  • 01

    打开表格命名为数据源,点击【开发工具】-点击Visual Basic

  • 02

    在Visual Basic窗口中点击左边的Sheet(数据源),然后点击 插入-【模块】

  • 03

    在弹出的模块窗口中复制如下代码: 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 Application.CutCopyMode = False Next i conn.Close Set conn = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

  • 04

    返回excel表格中,在【开发工具】中-【插入】-点击按钮

  • 05

    选择宏CFGZB,然后确认

  • 06

    电钮按钮,在弹出的对话框中选择标题行,然后确定

  • 07

    选择要拆分的表头,也就是拆分的表格以哪个字段命名,选择标题,点击确定。

  • 08

    等待完成就可以了,查看效果

(0)

相关推荐

  • 如何在excel中将一张工作表拆分成多个工作表

    在日常的工作中,使用excel时将一张工作表拆分到多个工作表这个操作是非常常见的,比如HR计算考勤,需要一起导入数据后按部门再拆分到各个部门,但是很多人都不是很清楚如何来操作,本篇就来和大家分享一下如 ...

  • excel将一个工作表根据条件拆分成多个工作表

    本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表. 注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作表名称为"数据源&qu ...

  • 怎么快速提取一个excel文件中的所有工作表名?

    在日常办公中经常需要提取一个excel工作薄中所有工作表的名称以方便后期的数据统计,下面我就跟大家分享几个快速提取所有工作表名称的方法. 方法/步骤1 01 首先,我分享第一个方法,这个方法可是非常简 ...

  • excel怎样将多个工作表拆分成单独的文件

    在工作中我们经常需要将一个工作簿中多个表格拆分成独立的工作表形成工作簿,那么我们怎么样批量拆分呢?下面给大家介绍一个方法. 操作方法 01 在excel的加载项选择方方格子,选择汇总拆分功能: 02 ...

  • Excel怎么制作一个能自动计算三角形边长的工作表

    三角函数很简单,在上初中时我们就已经学过了,出来工作了,慢慢的很多上学学到的东西都忘记得差不多了,下面我们就来看看怎样用Excel来制作一个能自动计算三角形边长的工作表,解放解放我们的大脑。 方法/步 ...

  • 怎么将Excel文档按关键字拆分为多个工作表

    Excel是现在十分常用的办公软件之一,有些新用户不知道怎么将Excel文档按关键字拆分为多个工作表,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的Excel文档, ...

  • wps怎么把一个表格拆分成两个表格

    介绍在wps中怎么把一个表格拆分成两个表格,以供参考. 操作方法 01 在表格要拆分的位置点击鼠标右键. 02 移动鼠标指针,指向右键菜单中的[拆分表格]. 03 鼠标稍停留后,会弹出一个子菜单. 如 ...

  • Word里如何把一个表格拆分成两个

    Word里如何把一个表格拆分成两个呢?今天小编分享下自己的方法,希望能够帮助到有需要的小伙伴. 操作方法 01 找到电脑上需要打开的WORD,见下图 02 打开需要把一个表格拆分成2个表格的word, ...

  • 怎么把一个表格拆分成两个表格

    怎么把一个表格拆分成两个表格呢?很多人都不会,下面小编来教大家. 操作方法 01 首先,我们打开一个有表格的word文档: 02 我们选中其中的一个表格: 03 然后右击选择拆分单元格: 04 弹出的 ...