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;

			}}}}