526互联

wps js在指定区域查找关键字

发布时间 2023-12-22 10:46:31作者: bowsky
Workbooks.Item(sy112).Activate();//“关键字”所在的文件
let rng=Rows.Item("3:4");//“关键字”所在行
let c=rng.Find("关键字",undefined,xlValues);
if(c !=null){
	let firstCol=c.Column;//将第1个获取的列号赋值给变量firstCol
	do{arr.push(c.Column);//将列号存入列表
	   c=rng.FindNext(c);//查找下一个关键字
		Range(Cells.Item(4,c.Column),Cells.Item(b,c.Column)).Select();//复制关键字所在列的数据
		Selection.Copy(undefined);
		Workbooks.Item("目标文件.xlsx").Activate();
		Cells(1,a).Select();
		Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);//将数据复制至目标文件
		a=a+1;		
		Workbooks.Item(sy112).Activate();
		}while(c != null && c.Column != firstCol)//只要下一个关键字不为空且不等于第1个找到的关键字的列，继续运行
	}