办公技能-使用ExcelVBA代码实现表格拆分功能--嘉为科技

作者：张辛

【摘要】

因为工作需要，我们经常希望能把一些表格按照某个分类进行拆分，按照正常做法应该是：先按分类项筛选，然后新建工作表，接着将筛选结果复制到新工作表上，随后再修改工作表标签名称，最后依次重复这项工作，直到把分类项中每一个选项都复制一遍，这份工作表才算拆分完毕。这种重复性工作太耗费时间，有没有办法能帮我们快速完成这种体力活呢？

【正文】

如果使用Excel VBA宏代码帮我们判断并拆分，则大大减轻工作量。下面就给大家介绍一个案例，希望能带来启发。

一、案例描述

如下图所示，有一张销售订单表，现在希望按照【产品】进行拆分，将每个城市的数据

单独放在一张新工作表上。

完成后我们看到的结果是销售订单表【sheet1】被拆分成9张产品表。如下图所示：

打开编程环境

首先需要调出开发工具选项卡，打开【文件】-【选项】-【自定义功能区】，勾选【开

发工具】

单击【开发工具】选项卡中的【Visual Basic】

右键单击【模块】，选择【插入】-【模块】

编写代码

将拆分工作表的代码贴入编辑区，如下图所示：

详细代码信息参考如下：

Sub 使用高级筛选拆分表格()

Dim a As String

Dim b As Integer, c As Integer

b = WorksheetFunction.CountA(Sheets("sheet1").Range("I2:I100"))

For c = 1 To b

Sheets("sheet1").Range("k2") = Sheets("sheet1").Range("I" & c + 1).Value

Sheets.Add After:=ActiveSheet

a = Sheets("sheet1").Range("k2").Value

https://www.wendangku.net/doc/9017174934.html, = a

Application.CutCopyMode = False

Sheets("Sheet1").Range("A1:G231").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("K1:K2"),

CopyToRange:=Sheets(a).Range("A1"), _

Unique:=False

Next c

Sheets("sheet1").Range("k1:k2").Clear

Sheets("sheet1").Select

End Sub

三、应用宏代码完成工作

设置拆分依据

代码中定义工作表【sheet1】中的I列为拆分依据，所以要将分类项复制粘贴到I列。

然后使用【数据】-【删除重复项】命令，将重复数据删除。

运行宏代码

单击【开发工具】-【宏】，打开宏编辑对话框，选中“使用高级筛选拆分表格”，单击

【执行】即可。

下来。如果保存成.xlsx格式，代码将被自动删除。

目录(办公室管理表格)

办公室管理表格 第一章办公室工作日程通用表格 1.当天备忘的重点 2.当天领导的行动掌握表 3.当天部属的行动掌握表 4.日程表 5.一年重点实施日程表 6.一周日程表 7.四季日程表 8.日程检查表 9.每日行动管理表 10.行程表拟定法检查表 11.每月、每日行事预定表 12.领导和部属休假掌握表 第二章办公综合管理表格 1.行政办公工作说明表 2.行政办公职位规范表 3.公司职员签到簿 4.纪律处分通知单 5.员工奖惩月报表 6.秘书职务说明表 7.计算机操作员职务说明表 第三章会议管理表格 1.年度会议计划表 2.年度例行事务会议安排表 3.会议室使用申请表 4.会议登记簿 5.会议通告单 6.会议通知

7.会议议程表 8.会议记录表(一) 9.会议记录表(二) 10.议决事项检查表 11.会议决定事项实施管理表 第四章出差管理表格 1.员工出差申请单 2.业务员出差申请单 3.出国申请表 4.出差通知单 5.预支差旅费申请单 6.业务员出差报告表 7.员工出差报告表 8.差旅费请领单 9.差旅费支付明细表 第五章财产综合管理表格 1.财产登记表 2.财产登记卡 3.财产记录保管表 4.财产领用单 5.财产移出(移入) 单 6.财产移交清单 7.财产请修单 8.报废单 9.财产减损单 10.财产增加单 11.财产增减月报表 12.财产投保明细表 第六章办公物品管理表格1.文具用品一览表

2.办公用品需求计划表 3.办公物品请购单 4.重要办公用品登记卡 5.领物卡 6.办公用品领用卡 7.办公用品领用单 8.办公用品耗用统计表 9.办公用品盘存报告表 10.个人领用文具用品统计表 11.长途电话使用登记簿 12.影印文件申请单 第七章涉外事务管理表格 1.高层经理接待日程表 2.公务联系单 3.参观申请登记表 4.参观许可证 5.来宾出入登记表 6.来宾来厂通知单 7.接待用餐申请表 8.接待申请及报告表 第八章安全保卫管理表格 1.员工出厂单 2.外出员工时间登记表 3.安全管理实施计划表 4.用电安全检查表 5.安全检查表 6.工作安全改善通知单 7.工作安全检查表 8.进厂联络单 9.守卫日报表 10.来访登记表

办公室检讨书范文三篇

办公室检讨书范文三篇 篇一 由于我做工作不认真、仔细的原因，没有把工作做好，在“会议通知”上出现了工作失误，在此我做出深刻检讨! 办公室是一个单位的“喉舌”，是部门有效运转的枢纽。没有强烈的责任意识，是无法胜任的。我显然没有意识到自己的岗位责任，明显放松了对自己的要求。态度决定一切，这是做好工作的起码要求，没有良好的工作态度，就会在工作上容易出现失误，以至会在同样的问题上多次犯错，甚至会在其他问题上出现严重错误。经过领导在会场上强调的会风纪律和会后的批评和教育后，我立刻从自己身上找原因。造成“会议通知”工作失误的原因，主要是因我责任心不强，对工作存在消极性。 在“会议通知”上的工作失误，我反思经过，觉得虽存在有一定的客观原因，但多因于我的疏忽造成工作失误。我做为一名多年从事办公室工作的人员，尽犯如此低能失误，我实在是问心有愧，无地自容。我做为一名办公室副职干部，自己的思想作风没有端正，工作作风不够扎实，岗位责任意识不够坚强。我自己都觉得太不应该，更觉得不能推卸责任，我必须去承担后果。

“会议通知”的失误在于我的工作消极性，诿过于日常工作中，我遇到有选择性安排人员参会的通知，认为部门领导知晓“会议通知”就可以了，认为自已已经完成了所受职权职责范围，余下的参会人员安排、车辆安排等事务自己无权安排落实，即不再过问事项安排到位与否。结果造成应通知五人参加投资x党委扩大会会议，而无一人通知到位。直至会议召开时间即将到达时，x 党政办xx副主任和xx长还先后电话通知本人，至本人及两位同事赶到会场时已造成严重后果。 通过这件事，我感到这虽然是一件偶然发生的事情，但同时也是长期以来对自己放松要求的结果。自己身为办公室的一员，应该严以律已，对自己严格要求。自己在工作态度中，仍就存在得过且过，混日子的应付想法。对于一些应该仔细认真做的工作而没有认真下来。现在，我深深感到，这是一个非常不好的做法，如果放任继续发展，那么，后果是极其严重的，甚至都无法想象会发生怎样的工作失误。因此，通过这件事，我认识到自己的不足，在此，向xx领导班子做出检讨的同时，也向同事们表示发自内心的歉意。 我谨向xx领导班子做出深刻检讨，并保证： 1.在这件事中，我感到自己在工作上还欠缺责任心。应提高自己的工作责任心。认真克服工作消极的缺点，努力将工作做好，

办公室6s管理实施方案

办公室6S管理竞赛活动方案 为了提高工作效率，建立一个安全舒适的办公环境，改善和提高部门员工精神面貌，促使大家养成良好的工作习惯，经部门班子会议决定，在本部门各股室开展办公室6s管理 竞赛活动，为确保活动顺利实施，特制定本方案，具体如下：一、成立竞赛活动领导小组 组长：*** 副组长：*** 6S管理员：*** 组员：***、***、***、*** 领导小组职责： （一）负责组织制定部门办公室6S管理实施方案及考核办法； （二）监督、督促6S管理工作按照预定标准； （三）组织对各岗位的6S管理工作进行检查、考核。二、竞赛时间 2017年*月**日-**月**日 三、参赛班组及区域划分 办公室6S管理以岗位为基础，按班组进行区域划分，各岗位6S管理第一责任人为该组负责人。 竞赛班组划分：按4个组进行划分。*一组，负责人***；*二组，负责人***；三组，负责人***；

负责区域划分：第一组，使用的办公桌和文件柜，第二组，办公室及中心办公楼实验室。第三组，调度室，仓库货架。第四组，网管中心机房、仓库。 四、竞赛要求及办公室定置摆放标准 （一）竞赛要求 1、整理(SEIRI)：将现场物品分为有用的和无用的，并将无用的物品清除掉。 2、整顿(SEITON)：合理规定现场物品放置的位置、数量和方法，并做必要的标识。 3、清扫(SEISO)：对现场环境进行综合治理，清除工作场所的垃圾、灰尘、污渍及其它污染源，避免和消除水、电、气、汽的跑、冒、滴、漏现象，使现场达到清洁、美观、卫生。 4、清洁(SEIKETS)：持续推进整理、整顿、清扫、安全工作，使之日常化、制度化、规范化，并始终处于受控和不断改进状态。 5、素养(SHITSUKE)：通过经常性的培训督导、文化熏陶和不断创新，培养员工良好的职业素质和个人修养，使6S 的管理要求逐渐变成全体员工的自觉行为。 6、安全(SAFETY)：以实现健康安全为目标，建立职业健康安全管理体系，开展必要的职业健康安全知识和技能培训，增强全员安全意识，提高员工安全防范和事故应急处理

牙科门诊日常管理工作检查表

牙科门诊日常管理工作检查表 (总4页) -CAL-FENGHAI.-(YICAI)-Company One1 -CAL-本页仅作为文档封面，使用请直接删除

牙科管理工作检查项目 一、看 （一）看牙科内部； 1、员工的整体精神面貌，仪容、仪表、仪态 对管理人员和员工进行活跃度评分（1-10分） 2、工作秩序与效率：卫生制度，卫生工作日志记录情况，服务流程执行情况，值班工作日志 3、内部环境卫生，地面，墙面，屋顶，器械台面与底部，墙 角；物品摆放，器械与办公用品，有没有标准，执行情况如 何 二、查 （一）查前台： 1、前台卫生整洁度 2、门诊日志记录情况 3、分诊日志记录，各科室各大夫月初诊人数，复诊人数，接诊率，人均消费等，医生个人和门诊收入情况统计 4、日报表，月报表 接诊成功率，有效率，这些数据有没有，具体情况如何 5、轻松牙医等客户管理软件的使用情况，病人来源登记等基础性资料的登记情况，图片资料上传情况，电话追随访情况记录，录音记录文件，客户投诉处理流程表，病人满意率，投诉率，信息反馈处理情况

6、电话追随访记录情况 （二）查财务 1、财务日报表个人与门诊收入情况检查，每日的日报表是否有，记录情况如何；月报表，单月结算情况，是否有未及时结算的项目 2、收入利润数和利润率 3、各项成本比率 4、材料的管理：出入库登记、盘库、材料帐 （三）查医疗区： 1、卫生情况 2、物品摆放 3、班前准备：精神状态准备，器械设备，患者预约情况熟识 4、接诊沟通：程序，有效率 5、操作规范：技术与服务方面 6、术后遗嘱：相关医嘱单等资料准备，执行情况 7、医疗文书书写：检查记录情况 （四）消毒间 1、卫生情况 2、消毒流程标准及记录 3、出入登记 4、消毒标示 （五）查办公室

关于办公室工作自查报告

关于办公室工作自查报告 办公室工作自查报告范文(一) 根据《重庆市商业委员会关于印发《20**年区县商贸流通主管部门办公室工作考核办法》的通知(渝商委发〔20**〕31号)文件要求，结合我局办公室工作实际，现将20**年办公室工作自查情况报告如下： 一、业务工作 (一)公文规范 一是突出文稿撰写的准确性。对公文的文字、内容、格式等进行严格把关，完成了各类重大会议材料和文件的撰写工作。 二是突出公文编发的规范性。按照行政机关公文处理要求，特别是县上召开关于公文改版会议要求后，我办公室人员从文件的起草、审核、审签到印发，每一步都严格按照程序规定办理，做到公文编发无差错、无失误、无泄密。 三是突出公文处理的时效性。更新观念，与时俱进，积极顺应县委、县政府办公的工作要求，充分利用党政网网络传输文件的便捷性和高效性，扎实管理，专人负责，跟踪办理，实现公文处理无错传、无漏传、无漏办。 (二)信息编报 信息工作是我局办公室主要工作之一，及时、准确、全面地为领导和上级机关报送信息，始终是办公室的重要职责。准确把握商务工作动态和政务信息报送重点，加强对各类信息的筛选，挖掘深层次的内容，去粗存精，着力提高信息质量。截止目前完成信息发稿400条(篇)。其中重庆市每周商贸7篇，商贸通报1期，《重庆商务之窗》采用10条，《重庆商贸之窗》发布40条，重庆商务预报30篇，商贸流通经济运行分析6篇，商贸流通经济信息150条，完成重庆崛起.商贸专版，经重庆日报整版刊登。撰写调研报告6篇，简报80期，商务专报10期，政务简况30期，《城口网》采用41条，为及时掌握我局的工作动态、全方位准确宣传我局的工作业绩和展现形象发挥了重要作用。 (三)政务公开 1.按照相关条例要求，我局办公室及时对外公开信息，通过政府的网站、信息

办公室管理表格

办公室管理表格第一章办公室工作日程通用表格 1.当天备忘的重点 2.当天领导的行动掌握表 3.当天部属的行动掌握表 4.日程表 5.一年重点实施日程表 6.一周日程表 7.四季日程表 8.日程检查表 9.每日行动管理表 10.行程表拟定法检查表 11.每月、每日行事预定表 12.领导和部属休假掌握表 第二章办公综合管理表格 1.行政办公工作说明表 2.行政办公职位规范表 3.公司职员签到簿 4.纪律处分通知单 5.员工奖惩月报表 6.秘书职务说明表 7.计算机操作员职务说明表 第三章会议管理表格 1.年度会议计划表 2.年度例行事务会议安排表 3.会议室使用申请表 4.会议登记簿 5.会议通告单 6.会议通知 7.会议议程表

8.会议记录表(一) 9.会议记录表(二) 10.议决事项检查表 11.会议决定事项实施管理表 第四章出差管理表格 1.员工出差申请单 2.业务员出差申请单 3.出国申请表 4.出差通知单 5.预支差旅费申请单 6.业务员出差报告表 7.员工出差报告表 8.差旅费请领单 9.差旅费支付明细表 第五章财产综合管理表格 1.财产登记表 2.财产登记卡 3.财产记录保管表 4.财产领用单 5.财产移出(移入) 单 6.财产移交清单 7.财产请修单 8.报废单 9.财产减损单 10.财产增加单 11.财产增减月报表 12.财产投保明细表 第六章办公物品管理表格 1.文具用品一览表 2.办公用品需求计划表 3.办公物品请购单

4.重要办公用品登记卡 5.领物卡 6.办公用品领用卡 7.办公用品领用单 8.办公用品耗用统计表 9.办公用品盘存报告表 10.个人领用文具用品统计表 11.长途电话使用登记簿 12.影印文件申请单 第七章涉外事务管理表格 1.高层经理接待日程表 2.公务联系单 3.参观申请登记表 4.参观许可证 5.来宾出入登记表 6.来宾来厂通知单 7.接待用餐申请表 8.接待申请及报告表 第八章安全保卫管理表格 1.员工出厂单 2.外出员工时间登记表 3.安全管理实施计划表 4.用电安全检查表 5.安全检查表 6.工作安全改善通知单 7.工作安全检查表 8.进厂联络单 9.守卫日报表 10.来访登记表 11.物品出厂放行条 12.物品出厂申请单 13.危险工作安全同意书