学习笔记)
**************************************************************************************************************
点击进入 -我要自学网-国内领先的专业视频教程学习网站
**************************************************************************************************************
实例:1单元格复制、重定位应用(拆分单表到多表
function 单表拆分成多表(){
var ws=Sheets("Sheet1");
var arr=['小六','小明','伍九天'];
for(var ar of arr){//循环数组
var sh=Worksheets.Add(null,ws);//新建工作表
sh.Name=ar;//新建工作表改名
ws.Range("a1:e1").Copy(sh.Range("a1"))//复制表头
Num=2;
for(var Rng of ws.Range("b2:b13")){//循环工作表中的b2:b13
if(ar==Rng.Value()){//循环查找工作表中的b2:b13对象
Rng.EntireRow.Range("a1:e1").Copy(sh.Range("a"+Num++));//根据Rng锁定行在锁定区域Range("a1:e1")进行copy到指定地方
}}}}
function 单表拆分成多表(){ var ws=Sheets("Sheet1"); var arr=['小六','小明','伍九天']; for(var ar of arr){//循环数组 var sh=Worksheets.Add(null,ws);//新建工作表 sh.Name=ar;//新建工作表改名 ws.Range("a1:e1").Copy(sh.Range("a1"))//复制表头 Num=2; for(var Rng of ws.Range("b2:b13")){//循环工作表中的b2:b13 if(ar==Rng.Value()){//循环查找工作表中的b2:b13对象 Rng.EntireRow.Range("a1:e1").Copy(sh.Range("a"+Num++));//根据Rng锁定行在锁定区域Range("a1:e1")进行copy到指定地方 }}}}
