一个需求,要求批量替换一堆wps文件中的内容,于是写了个宏,自定义替换词,执行宏替换。
function handleExcel(){ //1、查找替换词句 var cells = Sheets.Item(1).UsedRange.Cells; searchList = Array("原始词1","原始词2"); replaceList = Array("替换词1","替换词2"); if(searchList.length != replaceList.length){ alert("替换词和原始词数组长度不一致,请检查!"); } else{ for(var i=0;i<searchList.length;i++){ cells.Replace(searchList[i], replaceList[i],xlWhole); // 执行查找替换 } } // 2、删除前十列中有任何一列为空的行 var sheet = ActiveSheet; for (var row = 1; row <= 10; row++) { if((Sheets.Item(1).Range("B"+row).Value2 == "" || Sheets.Item(1).Range("B"+row).Value2 == undefined ) && (Sheets.Item(1).Range("C"+row).Value2 == "" || Sheets.Item(1).Range("C"+row).Value2 == undefined ) &&(Sheets.Item(1).Range("D"+row).Value2 == "" || Sheets.Item(1).Range("D"+row).Value2 == undefined )){ sheet.Rows(row).Delete(); row--; } } }