?**************************************************************************************************************

點擊進入 -我要自學網-國內領先的專業視頻教程學習網站

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

實例: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到指定地方}}}}