vba吧-百度贴吧
签到排名：今日本吧第个签到，
本吧因你更精彩，明天继续来努力！
本吧排名：
本吧签到人数：28
可签7级以上的吧50个
本月漏签0次！
成为超级会员，赠送8张补签卡
连续签到：天&&累计签到：天
超级会员单次开通12个月以上，赠送连续签到卡3张
各位吧友，虚心求教： 现在每天有2、300个WORD的订单，每天都是通过人工复制到EXCEL表中，可不可以把WORD
需求：将指定目录下包含某字段的文件名里的内容复制到当前Excel表，目录为一个参数，字段为一个参数。
怎么读取同文件夹下的工作簿到工作表1，在工作表运行处理完数据后，继续读取下一个工作簿，继续处理
【调研】在学习VBA中大家都遇到哪些问题？
问下各路大神dir函数读取长度是不是有限制
一道简单题，文科生被逼死 编写求一元二次方程ax2+bx+c=0解的程序，其中，a,b,c为任意实数。(10分) 要求：
各位好！从今天起，本吧一切聊天、灌水、混经验的请此贴！否则一经发现，删除处理！ 本吧的宗旨是
按Alt+F11组合键打开VBA窗口，点击“插入”——“模块”，输入以下代码： Sub 转换格式() Application.DisplayAler
这有工作相关的教材，免费学习，Excel VBA，感兴趣的一起来议讨学习
他的课程我除了自动化这个没看，其他都看了，花钱看的，但是这个太贵了，犹豫了很久还是不想买，谁
需要开发一个从excel文件中读取数据然后填写在cs架构软件中对应表格的填充软件，功能分为两大模块：1、
大佬们，小杂鱼来求助了。。。大佬们有木有现成的把EXCEL多个工作表（就是Sheet页）同一块已经被我选定
寻求VBA高人帮助，想把一个文件夹里的N个工作薄的内容合并到一个里面，之前在网上找个很多代码，但是
内容详见 http://tieba.baidu.com/p/
WPS的vba插件有吗，求助
初来乍到的编程初学者，都抱着一个伟大的理想，立志要用代码来改变这个低效率的世界，然而现实是极
初学者，请问语句前面的“？”是什么意思
大神们，vba该如何学习，买了本书，看了一半了，依旧很懵
国有国法，吧有吧规！ 有了规矩，才成方圆！同时也是为了本吧的正常交流、发展、服务广大VBA 受众，故
每个表格的H列的单元格的公式如公示栏所示，现在需要的是把引用的sheet名称改为上一个sheet的名称，如图
对于各财务人员和总公司的管理人员来说，经常会碰到这样那样的汇总工作。 比如各个分公司的财务数据
求大神帮忙
当莫晨曦从监狱里走出来的时候，迎面便扑上来了个五六岁的小姑娘。
手里有一个用VBA编程的能量分析小软件，本人非编程出身，看到代码一脸懵逼，但是需要在代码后面备注
我用录制宏，录制不出来。。。什么鬼。 求帮忙写一句，设置当前底纹为红色
各位大神，求教一个问题，怎么用VBA把 2.XLSX.sheet1中的A1：A15自动复制到1.XLSX.sheet1的A1：A15
求教！在excel中如何实现用户复制单元格后触发一个sub或者事件？我需要再复制后得到用户复制的单元格信
求助! 如何对照片实现批量旋转和调整大小?女神镇楼
有表1表2，实现表1中插入一条数据（包含月份和日期）然后去表2中找。如果表2中数据存在则修改。不存在
求助！！excel表格输出成txt文档后，输出2-16列4-8行数据，如何将每行以第八列为界限分成两行
有偿求助excel中的vba问题
为什么我用 For Each shp In .ActiveDocument.Shapes 这句老显示类型不匹配
求助！！！！！将excel文件sheet2(SP)表格中第四行到第八行，第二列到第十六列的内容输出成一个txt文件，
如题 出于热爱VBA，也不是什么大神。 平日时间较少，最好周末。
当xlsm文件保存时，如何自动保存一份不含宏的xlsx文件，如果同名则覆盖
怎么启用？
现在的问题是我想在SHEET5中禁用所有宏 我想设置工作表事件当sheet5激活时禁用所有宏 但是好像没有这样直
我是新手，想请问一下。 Excel的单元格中，例如我想输入一下内容：“，收到样品100台” 其中日期 2
求助帖，有没有大佬精通VBA二次开发AutoCAD的
首先本人excel水平还没到懂vba的地步 有个需求就是，excel工作簿除了第一页以外，其它的sheet都要隐藏，但
一个文件夹里有几十个excel工作簿，每个工作簿里面都只有sheet1有数据 如图片所示，怎么用VBA快速把所有
比如我选中了几个不相邻的单元格 给第一个里面写1，第二个写2 cells(1)没任何问题 cells(2)就不是我选中的
红框这窗体，怎么调成用窗口模式显示？
系统:win 7 Excel版本: 2016 窗体是寄生于a.xlsm文件的，窗体中的代码打开了b.xlsx文，关闭b.xlsx文件时，窗体也
我想编写一个解线性规划的函数，假设b=a^2(1+a+a^2) c为b的目标值 a,b,c 都是单元格 程序如下 Function rct(a, b, c) Dim o, p, q, r, s o = a.Row()
你可能感兴趣的吧...
发贴红色标题
签到六倍经验
兑换本吧会员
赠送补签卡1张，获得
助攻总额: 43W
贴吧热议榜
发表后自动分享本贴
使用签名档&在VBA代码中怎么表示不同的工作簿，我要从一个工作簿向另一个工作簿复制数据，不是工作表_百度知道
在VBA代码中怎么表示不同的工作簿，我要从一个工作簿向另一个工作簿复制数据，不是工作表
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
示例如下：
'激活工作簿Book1，并选中Sheet3工作表的B3单元格复制
Windows(&Book1&).Activate
Sheets(&Sheet3&).Select
Range(&B3&).Select
Selection.Copy
'激活工作簿Book2，并将复制好的内容粘贴到当前表的B4单元格
Windows(&Book2&).Activate
Range(&B4&).Select
ActiveSheet.Paste注：这里的Book1与Book2都是事先打开了的，不然会报错。类似这种语句，只要用录制宏的功能录制一下再看看代码就明白了 ^-^GoodLuck!
采纳率：59%
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。多个Excel工作簿中特定内容汇总到一个工作表 | VBA实例教程
我的图书馆
多个Excel工作簿中特定内容汇总到一个工作表 | VBA实例教程
除非注明，文章均为原创，转载请保留链接: ，VBA交流群。
相信学了上一篇“”朋友们对汇总有了初步的认识，（1）中我们讲的是将整个表中的内容都汇总到一个表中，这次我们看下如何汇总表中的特定内容而不是全部内容。其实这个也很简单，只是让大家熟悉一下汇总的过程，上次我们选择的是全部的内容，这次只要选择特定单元格就可以了。
看例子。假设你是个理财公司的统计人员，公司有四种产品，每个营业部都有好几个团队，分部行政人员会每天给你发各营业部各团明细，你呢只需要汇总各个营业部的业绩上报，即你只需要汇总每个表的最后一行，但是最后一行到底是哪行又是不确定的，大家可以自己先下载示例自己试一下。下面上代码
Sub test()Dim mypath, myfile, wb, i, jRange("A1").CurrentRegion.Offset(1, 0).ClearContents& '开始提取之前清除除表头之外的内容mypath = ThisWorkbook.Path & "\"&&&&&&&& '找到当前工作簿的路径myfile = Dir(mypath & "*.xlsx")&&&&&&&&& '遍历当前路径下的工作簿Do While myfile && ""&&&&&&&&&&&&&&&&&&& '当找到的文件不为空时If myfile && ThisWorkbook.Name Then&& '当找到的文件不是本工作簿时Set wb = GetObject(mypath & myfile) '利用GetObject取得数据With wb.Sheets(1)&&&&&&&&&&&&&&&&&& '对wb的sheet1进行操作i = .[a1048576].End(xlUp).Row&&& '得到wb的最后一行j = [a1048576].End(xlUp).Row + 1 '得到当前工作表的最后一行Range("A" & j) = .Range("A1")&&& '开始赋值了Range("B" & j) = .Range("B" & i)Range("C" & j) = .Range("C" & i)Range("D" & j) = .Range("D" & i)Range("E" & j) = .Range("E" & i)Range("F" & j) = .Range("F" & i)End Withwb.Close&&&&&&&&&&&&&&&&&& '别忘了关掉，要不然越开越多电脑就瘫痪了End Ifmyfile = Dir&&&&&&&&&&&&&&&&& '去找下一个工作簿LoopEnd Sub
汇总的表要和那些明细表放同一个文件夹下，这样就可以用mypath = ThisWorkbook.Path & "\" 取得文件夹的路径了,i和j分别是取到明细表和汇总表的最后一行，End属性不明白的可以百度一下。提醒新手朋友们，在看代码的时候会有一些看不明白的地方，我也不可以面面俱到的都讲，其实只要百度一下很多问题都可以明白了，有问题先自己查是一种技能更是一种态度。本文示例文件下载。
您可能也喜欢：
[转]&[转]&
喜欢该文的人也喜欢&您的位置：&&&&&&
课　　时：
开课时间：
授课方式：
招生人数：
授课老师：
课程费用：
适合人群：
1、在校学生，学习遇到瓶颈，急需技术水平突破的朋友。2、文员、财务人员、统计员、仓管员、数据分析员等。3、凡是与数据打交道的任何工作。
详细说明：
1、每周3次课，逢周一、三、五晚上8：00-10：00；无需脱产，培训周期3个月。2、满30人开课，50人封顶，报名从速。3、只要网络上行下行速度均达到100KB/S以上，即可体验上课。4、如果学员当节缺课，本站提供课程录像下载。
Office高级培训讲师，拥有10年办公培训经验。尤其在excel方面有颇高人气。一直致力于提高办公人员的工作效率的培训。讲解风格：细腻生动、以实例出发讲解办公工作中的疑难问题。
上课的方式是怎样的？
&&由本站发送&远程教学软件&给学员安装。学员安装后，通过学员端口登录，即可进入远程互动课堂。最后，老师讲课，并在上课过程中，通过此软件跟学员互动交流。
遇到不懂可以问老师吗，如何跟老师交流?
&&可以的，对于学习的过程中碰到疑问可以跟老师交流；主要通过两种方式：一种是在课堂中实时举手，老师和助教在线答疑。另一种方式是加入班级QQ群，课余时间可以通过QQ跟老师交流；此外同班同学之间也可以在QQ群中交流。
如果不会安装软件怎么办？
&&会由老师或助教帮大家远程安装一下。
哪些人需要用到excel？
&&文员、财务人员、统计员、仓管员、数据分析等。凡是与数据打交道的任何工作。
Excel这么简单，还用学么？
&&只有两种人有资格说这句话：高手和未入门者。
学习后的效果，能举几个真实案例吗？
&&1、某家公司五个会计，半年没理清的账目。某学员接手一天半搞定。
&&2、某公司8个人做3800份合同，一周没搞定。弄出一筐废纸。某学员接手，两小时搞定。
如果中间缺课怎么办?
&&课程学习过程中，碰到临时无法上课的情况，请提前跟老师请假，课后我们将给您发放本次课堂的实况录像，方便学习。
如果在培训过程中因出差等特殊原因不得不中断学习，怎么办？
&&可提供相关证明，如果下期开班，可以申请免费重修。
学完后，能达到一个什么水平
&&可熟悉的掌握Excel软件，并对各种庞大而复杂数据进行各种类型的操作，如汇总，筛选，求和、排序&&；
对繁琐的数据输入、查找等操作都可以得心应手、游刃有余；熟悉的使用excel常用函数，并能应用在实际的工作中；对一些特殊的、个性化的要求，可使用excel VBA进行编程和开发出相应的功能。
付款后，您们会发我什么凭证吗？
&&您支付学费后，我们将在三天内，把收款收据及服务协议书通过快递寄出。
是否有相关的培训资料发放？
&&有。开课前，通过网络发放课程的预习资料。并发放培训电子教材（主要上课所用素材、课程教案、软件流程等内容）。
远程培训与我要自学网上的在线教程有何不同？
&&有小部分会相同，但采用的案例不同；远程培训内容更加有深度，系统化更强，更集中；远程培训更贴近市场，面向就业；互动强，可以实时互动，语音对话，有问题可直接求助老师。
课程采用哪些软件版本？
Excel 2010版本
报名这个&Excel特训班&需要什么基础？
&&这一班是从Excel基础开始讲，所以对于没有用过Excel的人，也可以报读，但是学员需有一定的电脑基础，对电脑的一般性操作都比较了解，如打字，上网，文件复制、保存等都要懂，有Word基础那就更好了。如果没有以上基础的人，建议先在51自学网学习一下&计算机基础知识教程&和&Word2010教程&后再报这个班。
EXCEL特训班第十期
(亲,学位有限,已经截止报名.需要报读请参加下一期,谢谢理解)
培训后可以达到目标
1、可熟悉的掌握Excel软件，并对各种庞大而复杂数据进行各种类型的操作，如汇总，筛选，求和、排序&&;
2、对繁琐的数据输入、查找、替换等操作都可以得心应手、游刃有余;
3、熟悉的使用excel常用函数，并能应用在实际的工作中;
4、对一些特殊的、个性化的要求，可使用excel VBA进行编程和开发出相应的功能;获取>>|
培训平台优势
1、课程质量保证：我要自学网金牌讲师-曾贤志主讲，拥有10年办公培训经验。
2、互动性强、即时答疑：远程教育软件声音清晰，可进行实时语音对话，互动方便，也可使用QQ交流，真正的培训课堂体验。
3、培训质量有保障，可以免费观看以后每期的课程录像。
4、培训后可办理正规的&办公软件应用专家证&证书：凡参加本期培训的学员，学完后，可报名参加考证（注：办证需
另交办证费用）
报名流程：① -& ② -& ③ -& ④
1、由本站发送&远程教学软件&给学员安装。
2、学员安装后中，通过学员端口登录，即可进入远程课堂。
3、老师讲课，并在上课过程中，并通过此软件跟学员互动交流。
课程学习模块
Excel基础模块
Excel表格的概述及常规设置。工作环境定制、工作簿、工作表、单元格等对象的相关概念和常规操作。单元格格式设置、表格制作制作技巧、复杂表格制作技巧。数据规范化设置。数据的合并计算、分类汇总、数据透视表等数据汇总工具的使用。学完本模块，你已经可以处理日常工作中的数据问题了。
Excel绘图模块
如果你要绘制设计一些图形或者做简单的图片处理。也许你第一个想到的是用平面设计软件完成。但其实用excel也可以完成。本模块主要讲解各种形状的组合使用。图形的自定义控制线条绘制图形。图形的阴影、映像、发光、柔化边缘、棱台、三维旋转等效果的使用。SmartArt、文本框、艺术字等对象使用。图片的背景处理、更正、颜色、艺术效果、裁剪等图片方面的处理。让excel的绘图功能也能做出来专业的平面效果和三维效果。
Excel图表模块
用图表比直接数据呈现更直观。EXCEL的图表功能非常灵活，也非常强大。本模块从图表的建立方法、图表的数据源修改、类型修改、位置移动。预定义布局、预置图表样式。图表各个元素的参数设置。图表图形的设置。结合函数公式，或者配合辅助列。让图表功能更强大。也可以结合数据透视图、控件制作有交互功能的动态图表。
Excel函数模块
Excel &函数&是Excel是最精华部分，也是功能最强大、最实用的一部分。所以学好&函数&对于一个办公室工作人员来说，也是非常重要，他可以使用你的工作更快，更高效，也可以突出你的能力和作用。&Excel函数&即是预先定义，执行计算、分析等处理数据任务的特殊公式，使用函数可以大大的简化数据处理的过程和方法，可使操作更简单，更灵活，实现更为强大的数据管理功能。学完此模块，您不再恐惧各种复杂的数据统计，本来需要几个小时才能完全的工作，用函数几下子就做完了，真正提高您的工作效率。
Excel高级技巧应用模块
Excel功能强大，但很多真正实用而又强大的功能却少有人知，或者这就是所谓的武林秘籍吧。有的人使用了一辈子的Excel都只是仅于一些常用的功能，做一些工作往往耗时耗力，虽然最终都可以完成，但是比别人就慢了一拍。而通过此模块的学习，您不再为烦庸而枯燥的工作而烦恼，使出您的绝招，两下就把重复、无趣的工作做完，让您工作起来轻松自在。
SQL与透视表结合应用
&Excel数据透视表&是数据汇总、优化数据显示和数据处理的强大工具，他的功能强大，汇总速度快，使用简单，是大量数据汇总和统计的不二选择。而通过此模块的学习，您可以掌握Excel数据透视表的使用方法和技巧，在做大量数据分析和统计时，真正做到得心应手。再结合SQL数据库，使用&数据透视表&的功能更强大，更灵活，可拓展性更强，可谓如虎添翼。
Excel VBA编程模块
Excel VBA是把VB编程应用在Excel平台的一个工具，Excel +VBA双剑合壁，他可以帮助我们实现Excel原本实现不了的功能，让我们随心所欲的定制自己的工作平台，制作各种个性化的界面，让工作更高效和方便。还可以针对企业来开发各种系统如，人事管理系统、仓库系统、进存销系统等。通过此模块的学习以后，在工作中如果再遇到老板提出的各种特殊的要求，更能应对自由。
实时互动授课
熟悉培训平台
软件下载、安装详解
基础操作与实例
界面介绍与定制
实时互动授课
Excel基础操作
科学数据录入
普通表格的制作
单元格格式设置
单元格格式设置
实时互动授课
实例应用（普通/复杂表格制作）
自定义数子格式
合并计算（单表、多表、通配符汇总）
实时互动授课
分类汇总（汇总、批量分页打印设置）
数据透视表（创建\布局\格式\排序\筛选）
形状的常规操作
实时互动授课
形状的填充设置
形状的边框设置
文本框与艺术字
实时互动授课
SmartArt图形
公式与函数基础
公式与函数的基础
实时互动授课
公式中的各种运算符的应用
常见函数应用
详解数组公式
数组公式综合练习
图表的建立流程
实时互动授课
图表布局设置
公式与图表
实时互动授课
动态图表（数据透视图）
逻辑、信息、错误
逻辑函数IF、AND、OR函数
实时互动授课
错误值处理
常用信息函数
求和、计数、平均
求和系列函数
实时互动授课
计数系列函数
平均系列函数
时间与日期函数
int/mod/quotient(实例1）
实时互动授课
ROUND函数（实例2）
倍数舍入舍出函数（实例3）
随机数（实例4）
日期函数（实例1）
其它日期函数（实例2）
时间函数（实例3）
left\right\mid\len函数
实时互动授课
find\serach函数
rept\substitute函数
text文本函数
实时互动授课
char\code函数
rept\trim函数
查找定位函数
VLOOKUP与HLOOKUP函数基础
实时互动授课
MATCH（实例）
INDEX函数（实例）
lookup函数（实例）
引用与多维引用
choose函数
实时互动授课
indirect函数
offset函数
small与large函数
实时互动授课
subtotal函数
frequency函数
查找、替换、定位
实时互动授课
填充与粘贴
选择性粘贴
条件格式基础
实时互动授课
色阶、数据条、图标集
公式与条件格式
排序、自定义排序
实时互动授课
筛选、自定义筛选、高级筛选
数据有效性
分列（常规用法、高级用法、变态用法）
实时互动授课
分组（手工分组、自动分组2法）
数据透视表进阶应用
动态数据透视表
实时互动授课
透视表分组
计算字段与计算项
透视表与函数
SQL与透视表的结合
SQL是什么？
实时互动授课
查询表的规范要求
查询语言关键字（保留字）select
SQL语句中的运算符
排序\分组\连接\子查询
实时互动授课
聚合函数与分组
多表数据合并
SQL函数与透视表
条件分支函数
实时互动授课
实时互动授课
VBA的准备工作
变量与运算符
输入框与输出框
分支语句IF
对象与循环语句
常用对象讲解及表示方法
实时互动授课
循环语句之for next
循环语句之for each
循环语句之do loop
代码的优化、错误处理
VBA与工作表函数
实时互动授课
动态获取单元格区域的几种方法
工作簿的操作及实例
工作簿的打开、新建、保存、关闭
实时互动授课
遍历文件夹函数dir
VBA数组基础及应用
实时互动授课
与数组相关的函数
ubound与lbound函数
实时互动授课
join与split函数
index与match函数
filter函数
字典技术应用
字典基础及引用
实时互动授课
字典技术的6个方法4个属性
字典与数组的结合的经典应用
自定义函数
自定久函数基础
实时互动授课
无参数的自定义函数
有参数的自定义函数
不定参数的自定义函数
自定义函数的帮助说明编写
自定义函数的加载与保护
工作表事件
实时互动授课
工作簿事件
常见事件实例应用
正则表达式1
正则表达式基础
实时互动授课
元字符介绍
量词与分符组
正则表达式2
分组与捕获
实时互动授课
FSOf技术管理文件1
FSO基础及引用
实时互动授课
常见集合和对应介绍
驱动器操作
文件及文件夹的属性读取与修改
FSOf技术管理文件2
文件夹管理（新建\命名\移动\复制\删除）
实时互动授课
文件管理（新建\命名\移动\复制\删除）
文件夹对象属性的应用
实例：遍历文件夹及子文件夹下的文件
FSO技术（文本文件）
文本的新建、移动、删除等基础操作
实时互动授课
读取文本数据
往文本文件写入数据
常见控件介绍
实时互动授课努力！奋斗！
使用VBA将Excel工作表分割成多个文件
有一个表格，具体数据如下图所示。这里需要按城市（即B列数据）对表格进行拆分，拆分出多个以城市名称命名的xlsx文件，每个xlsx文件都只包含当前城市的数据。
之前没有接触过Excel相关的编程，也没有学习过VB语言，完全是摸着石头过河。在这里把期间使用过的一些资料罗列下，方便以后再次用到的时候，可以快速再捡起来。
Excel 2007 VBA Macro Programming
这个是英文版的电子书，当初在(皮皮书屋是好东西，你懂的)上随便找的，做为我VBA的入门书籍。主要从这本书里学习了VBA的对象模型，几个常用的对象，Application、Workbook、Worksheet、Range。这本书有个好的地方就是在书的后面有个索引，可以快速地查看自己想了解的内容。这本书也有个大的缺陷，就是内容讲得还不够详细具体，往往找到了自己想了解的内容，想深入了解下各种操作，结果发现它讲完了。
这是个非常好的网站，里面包含了很多简单的例子及代码。当想要实现某个简单地操作的时候，可以先到这里来找找看有没有相应的实例。有一点搞不明白的就是，明明是中文网站，怎么贴的图片里的Excel都是日文的(好吧，不深究了)。对于新手来说非常有用，推荐之。
最权威的Excel函数查询网站，好吧，其实就是微软的MSDN啦。虽然说MSDN的文档有时候的确搞不清楚它在讲什么，但是它还是最详细的。
好吧，不废话了，直接上代码。
Sub XXX_Click()
'输入用户想要拆分的工作表
Dim sheet_name
sheet_name = Application.InputBox("请输入拆分工作表的名称：")
Worksheets(sheet_name).Select
'输入获取拆分需要的条件列
Dim col_name
col_name = Application.InputBox("请输入拆分依据的列号(如A):")
'输入拆分的开始行，要求输入的是数字
Dim start_row As Integer
start_row = Application.InputBox(prompt:="请输入拆分的开始行:", Type:=1)
'暂停屏幕更新
Application.ScreenUpdating = False
'工作表的总行数
Dim end_row
end_row = Worksheets(sheet_name).Range("A65536").End(xlUp).Row
'遍历计算所有拆分表，每个拆分表的格式为"表名称,表行数"
'对于二维数组，ReDim只能扩充最后一维，因此sheet_map行不变，扩充列
Dim sheet_map(), sheet_index
ReDim sheet_map(1, 0)
sheet_map(0, 0) = Range(col_name & start_row).Value
sheet_map(1, 0) = 1
sheet_index = 0
With Worksheets(sheet_name)
Dim row_count, temp, i
row_count = 0
For i = start_row + 1 To end_row
temp = Range(col_name & i).Value
If temp = Range(col_name & (i - 1)).Value Then
sheet_map(1, sheet_index) = sheet_map(1, sheet_index) + 1
ReDim Preserve sheet_map(1, sheet_index + 1)
sheet_index = sheet_index + 1
sheet_map(0, sheet_index) = temp
sheet_map(1, sheet_index) = 1
'根据前面计算的拆分表，拆分成单个文件
Dim row_index
row_index = start_row
For i = 0 To sheet_index
Workbooks.Add
'创建最终数据文件夹
Dim dir_name
dir_name = ThisWorkbook.Path & "\拆分出的表格\"
If Dir(dir_name, vbDirectory) = "" Then
MkDir (dir_name)
'创建新工作簿
Dim workbook_path
workbook_path = ThisWorkbook.Path & "\拆分出的表格\" & sheet_map(0, i) & ".xlsx"
ActiveWorkbook.SaveAs workbook_path
ActiveSheet.Name = sheet_map(0, i)
'激活当前工作簿，ThisWorkbook表示当前跑代码的工作簿
ThisWorkbook.Activate
'拷贝条目数据(即最前面不需要拆分的数据行)
Dim row_range
row_range = 1 & ":" & (start_row - 1)
Worksheets(sheet_name).Rows(row_range).Copy
Workbooks(sheet_map(0, i) & ".xlsx").Sheets(1).Range("A1").PasteSpecial
'拷贝拆分表的专属数据
row_range = row_index & ":" & (row_index + sheet_map(1, i) - 1)
Worksheets(sheet_name).Rows(row_range).Copy
Workbooks(sheet_map(0, i) & ".xlsx").Sheets(1).Range("A" & start_row).PasteSpecial
row_index = row_index + sheet_map(1, i)
Workbooks(sheet_map(0, i) & ".xlsx").Close SaveChanges:=True
'进行屏幕更新
Application.ScreenUpdating = True
MsgBox "拆分工作表完成"
似乎，博客的代码着色功能不是好呀，看着让人感觉好费力，再给大家上两张看着舒服的图片吧。
Excel把一个工作表根据条件拆分成多个工作表
VBA代码拆分excel
EXCEL用VBA代码拆分sheet为新EXCEL文件
excel将一个工作表根据条件拆分成多个工作簿、工作表
excel将一个工作表根据条件拆分成多个工作表图文教程
VBA：按照表中的一列的名称拆分出独立的表
VBA代码实例---一个工作表拆分为N个工作表
Excel VBA 宏 拆分Excel表
把excel中的数据，按条件分割成多个文件
没有更多推荐了，}