Excel工作簿的拆分

Option ExplicitSub 拆分工作表()
Application.ScreenUpdating = True
Dim br, x As Integer, sh As Worksheet, d As New Dictionary, i As Integer, rg As Range, k As Integer, j As Integer, arr(), l As Integer
i = Range("A2").End(xlDown).Row
For Each rg In Range("H3:H" & i)d(rg.Value) = ""
NextFor k = 0 To d.Count - 1For j = 3 To iIf Range("H" & j) = d.Keys(k) Thenx = x + 1ReDim Preserve arr(1 To 12, 1 To x)arr(1, x) = xarr(2, x) = Range("B" & j)arr(3, x) = Range("C" & j)arr(4, x) = Range("D" & j)arr(5, x) = Range("E" & j)arr(6, x) = Range("F" & j)arr(7, x) = Range("G" & j)arr(8, x) = Range("H" & j)arr(9, x) = Range("I" & j)arr(10, x) = Range("J" & j)arr(11, x) = Range("K" & j)arr(12, x) = Range("L" & j)End IfNext jSet sh = Sheets.Add(, Sheets(Sheets.Count))sh.Name = d.Keys(k)sh.Range("a1:l1").Mergesh.Range("a1") = "开阳县水利局2015年9月21日一2015年 月 日车辆用油清册"sh.Range("a1").HorizontalAlignment = xlCentersh.Range("a2:L2") = Array("序号", "出车时间", "小车车号", "出差地点", "事由", "用车人", "圈油时间", "驾驶员", "卡号", "金额", "驾驶员签字", "备注")sh.Range("a3").Resize(UBound(arr, 2), 12) = WorksheetFunction.Transpose(arr)sh.Range("a3:L" & (UBound(arr, 2) + 2)).HorizontalAlignment = xlCenterbr = Array(6.5, 17, 8.38, 11, 16, 15, 12, 12, 8.38, 8.38, 10, 30)For x = 1 To 12sh.Columns(x).ColumnWidth = br(x - 1)Next xErase arr: x = 0Sheets("汇总表").Activate
Next k
Application.ScreenUpdating = False
End Sub

转载于:https://blog.51cto.com/splend/1704007

Excel工作簿的拆分相关推荐

vb怎样同时打开2个excel工作簿_【赠书】不打开工作簿也能批量合并不同文件夹下多个表格的数据...
最近推送的五篇文章: <偷懒的技术:打造财务Excel达人>到底有多畅销? <偷懒的技术2>推荐序:未来已来,你准备好了吗? 将"偷懒"进行到底,还在到处找 ...
使用Python第三方库xlwings将单个excel工作表快速拆分为多个工作表(附打包好的exe文件)
使用Python第三方库xlwings将单个excel工作表快速拆分为多个工作表(附打包好的exe文件) 资源链接 CSDN:https://download.csdn.net/download/qq ...
excel合并多个工作表_如何快速的合并多个 Excel 工作簿至一个工作簿中的工作表？...
作者:汪汪家的宝贝链接:https://www.jianshu.com/p/c8ae6852f1da 前言在日常工作过程中,我们有可能需要把多个Excel工作簿的内容汇总到一张Excel工作表中. ...
python获取excel数据进行判断输出结果到excel,如何使用python xlrd/xlwt从一个excel工作簿提取数据并输出到另一个excel工作簿？...
我正在为xlutils.xlrd和xlwt创建一个名为excel functions的类,最终我可能会创建一个库.如果你有兴趣帮我做一个删除工作表的功能. 您可能希望转向openpyxl和/或pyex ...
python读取Excel工作簿、工作表
python读取Excel工作簿.工作表最近需要用python操作Excel表格,因此大概学习了一下如何操作,表较简单但是很实用,这里记录一些简单的操作. import xlrd # 读取工作簿 w ...
c# xls 复制一行_c# – 将excel工作簿中的第一行复制到新的Excel工作簿
如何获得excel工作簿中的第一行&使用.net c#将其保存到新的excel工作簿中?我不知道列的数量,因此需要获得整行.这就是我的新工作簿是空白的(没有行复制) Excel.Workboo ...
java使用POI5.0生成简易Excel工作簿的一种方法
先贴一下poi相关jar包的链接 https://poi.apache.org/download.html#POI-5.0.0 官网地址 <!-- https://mvnrepository.c ...
excel快速填充_Excel教程：24秒，提取excel工作簿中300张图片
微信扫码观看<财务人的Excel速成视频> 或许您在看本篇教程的时候,会很惊讶,会有疑问,Excel和压缩软件有啥关系,提取图片居然可以这样做!小雅用的是Excel2013版本,给大家分享 ...
应用现有EXCEL工作簿实现简单人事管理
只是对网上一个excel工作簿的学习,分析实现过程.只是应对百人的企业,作一些基础统计,谈分析,没有. 一.界面的设计: 白色线框:在蓝色单元格底色基础上,将选中单元格属性"边框" ...
excel表格锁定怎么解锁_让用户锁定或解锁Excel工作簿
excel表格锁定怎么解锁 Some people like an Excel workbook that's locked down, so they can't accidentally mess ...

Excel工作簿的拆分

Excel工作簿的拆分相关推荐

最新文章

热门文章