目标：将所有的excel合并到一个excel之中刚才的多表之中的内容化身为现在的一个表，下边的多个sheet。
第二步：把这个excel之中的多个sheet扩展到一个sheet之中。
是需要的基础软件：具备vba的excel软件，可以用微软的中有有vba的office，也也可以用国产的wps之中的专业版。
合并之前，请先创建家族个空白位置的sheet才是合并目标sheet，这个sheet可以是那个sheet哦。要是不合并标题行（比如说第一行）则j1值改j2如果不是数据不是从第一行，或者第一列结束的，请直接修改j1及k2两行的参数。比如j2k3表示从第2行，第3列开始的数据。
subcombinesheet()dimi,j,k,nandintegern1fori2needj2can(i)k1did(i)(1).cells(n,k).value(i).cells(j,k).textnextknn1nextjnextiendsub
使用方法：
1、新建任务一个工作薄，将其以此命名为你合并后的名字。
2、再打开此工作薄。
3、在其下任一个工作表标签上点击右键，选择“查找代码”。
4、在先打开的vba编辑窗口中ctrlv粘贴以下代码：sub工作薄间工作表合并()dimfileopendimxlikeintegerfalsefileopen(filefilter:microsoftexcel文件(*.xls),*.xls,multiselect:true,title:合并工作薄)x1whilexubound(fileopen)filename:fileopen(x)sheets().moveafter:()xx1wendexithandler:trueexitsuberrhadler:msgboxendsub
5、关掉vba编辑窗口。
6、在excel中，工具---宏---宏,选“工作薄间工作表单独设置”,接着“负责执行”。
7、在可以打开的对话窗口中，你选你要单独设置的300个工作薄。
