一个需求,要求批量替换一堆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--;
}
}
}