5-36 WPS JS宏综合实例应用-1（多工作表数据合并）

示例1：多工作表数据合并，将A班、B班、C班数据合并在合并表中。

多工作表数据合并结果：

1.多工作表数据合并代码：

function 合并(){

var num=1;

Sheets("合并").Range("a2:f9999").ClearContents();

for(var ws of Sheets){

if(ws.Name!="合并"){

//方法1：

var Rng=ws.Range("a2",ws.Cells(9999,"e").End(xlUp));//各有弊端

//方法2：

//var Rng=ws.Range("a2",ws.Range("a1").End(xlToRight).End(xlDown));//各有弊端

var arr=Rng.Value();

for(var ar of arr){

ar.push(ws.Name);

Sheets("合并").Range("a1:f1").Offset(num++).Value2=ar;

}}}}

function 合并(){ var num=1; Sheets("合并").Range("a2:f9999").ClearContents(); for(var ws of Sheets){ if(ws.Name!="合并"){ //方法1： var Rng=ws.Range("a2",ws.Cells(9999,"e").End(xlUp));//各有弊端 //方法2： //var Rng=ws.Range("a2",ws.Range("a1").End(xlToRight).End(xlDown)); //各有弊端 var arr=Rng.Value(); for(var ar of arr){ ar.push(ws.Name); Sheets("合并").Range("a1:f1").Offset(num++).Value2=ar; }}}}