**************************************************************************************************************

点击进入 -我要自学网-国内领先的专业视频教程学习网站

**************************************************************************************************************

实例: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:b13if(ar==Rng.Value()){//循环查找工作表中的b2:b13对象Rng.EntireRow.Range("a1:e1").Copy(sh.Range("a"+Num++));//根据Rng锁定行在锁定区域Range("a1:e1")进行copy到指定地方}}}}