WPS宏实现Sheet页合并功能
把表格中N个Sheet页数据合并成一个新的Sheet页
function 合并Sheet页() {
//获取工作表对象
var ws = ThisWorkbook.Worksheets;
//创建名称为 合并页 的Sheet页，如果存在名称叫合并页的Sheet页，这里会报错，没做判断删除
var ws1 = ws.Add();
ws1.Name = "合并页";
//先把表头复制过去
ws.Item(2).Cells(1,1).Rows.EntireRow.Copy(ws1.Cells(1, 1));
//获取所有Sheet页对象
var worksheetObjects = {};
var sheetNum = ws.Count;
//console.log("Sheet页数量："+sheetNum);
//这里i从2开始，把新创建的合并页抛出去
for(i = 2; i < sheetNum+1; i++){
var sheetName = ws.Item(i).Name;
//console.log("第"+i+"个"+"Sheet页名称："+sheetName);
worksheetObjects[sheetName] = ws.Item(sheetName);
//每个Sheet页从第二行开始复制
var lastCol = worksheetObjects[sheetName].Cells(1, worksheetObjects[sheetName].Columns.Count).End(xlToLeft).Column;
var lastRow = worksheetObjects[sheetName].Cells(worksheetObjects[sheetName].Rows.Count,1).End(xlUp).Row;
//获取合并页的有多少行
var startRow = ws1.Cells(ws1.Rows.Count,1).End(xlUp).Row;
//开始复制
worksheetObjects[sheetName].Range(Cells(2,1),Cells(lastRow,lastCol)).Copy(ws1.Cells(startRow+1, 1));
}
}