WPS_JSA:编程实例

从A列获取sheet名,批量新建(包括优化)

在这里插入图片描述

function 批量新建(){
   
	console.clear();
	let row_ini=2;
	let i = Cells(Rows.Count, 1).End(xlUp).Row + 1;
	let sheet_name="";
	while(row_ini<i)
	{
   
		sheet_name=String(Range("a"+row_ini).Value2);
		在最后新建工作表(sheet_name);
		row_ini++;
		Worksheets("Sheet1").Activate();
	}
}
function 在最后新建工作表(sheet_name){
   
	let cnt = Worksheets.Count;
 	Worksheets.Add(undefined,Worksheets(cnt));
 	ActiveSheet.Name = sheet_name;//注意如果有重名的工作表,创建是成功的,只是这一步失败。
}

涉及知识点
1转化为文本格式,防止获取数字影响到worksheet
2从单元格取数
3不能忘记++,否则就死循环
4不能忘记重新激活第一个工作簿
5新建函数我直接用了模板。也有很多知识点。比如获取工作表的总个数、Add的参数、重命名

利用集合遍历和try catch检测可能新建失败的异常,进行优化:

function 优化新建(){
   
	Console.clear();
	Application.DisplayAlerts = false;
	Application.ScreenUpdating = false;
	
	let sheetNameList = Range("a2:a"+Cells(Rows.Count, 1).End(xlUp).Row);
	for (everySheetRange of sheetNameList){
   
		sheetName = String(everySheetRange.Value2);
		try{
   
			在最后新建工作表(sheetName);
			everySheetRange.Offset(0,1).Value2 = '成功';
		}catch(err){
   
			everySheetRange.Offset(0,1).Value2 = '失败';
			ActiveSheet.Delete();
		}
	}
	Application.DisplayAlerts = true;
	Application.ScreenUpdating = true;
}

1统一开启和关闭警告提醒和屏幕刷新功能,结构更清晰
2for of原来可以减少重新激活sheet1工作表这一步
3利用偏移,在第二列进行创建状态的标记
4利用trycatch,进行创建失败的异常处理,注意创建失败的话,是重命名这一步失败,但是工作表已经创建了

从A列获取sheet名,批量删除(包括优化)

function 批量删除(){
   
	console.clear();
	Application.DisplayAlerts = false;
	let row_ini=2;
	let i = Cells(Rows.Count, 1).End(xlUp).Row + 1;
	let sheet_name="";
	while(row_ini<i)
	{
   
		sheet_name=String(Range("a"+row_ini).Value2);
//		Console.log(sheet_name);
	 	Worksheets(sheet_name).Delete();
		row_ini++;
		Worksheets("Sheet1").Activate()
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值