【Excel VBA】批量新建并重命名工作表

一、需求

根据sheet1所列名称,添加并重命名新的工作表。
在这里插入图片描述

二、实现
1.按照从前往后的顺序
Sub cre_ren_sheets()
	Dim num% 
	/* 定义为integer*/
	num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
	/* num是非空单元格数*/
	
	For i = 1 To num
	    Sheets.Add after:=ActiveSheet
	    Sheets(i + 1).Select
	    Sheets(i + 1).Name = Sheet1.Cells(i, 1)
	Next i
End Sub

在这里插入图片描述

2.按照从后往前的顺序
Sub cre_ren_sheets()
	Dim num%
	num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
	
	For i = 1 To num
	    Sheets.Add
	    Sheets(1).Name = Sheet1.Cells(i, 1)
	    /* Sheet1=Sheets(i+1), sheet1随着新工作表的建立被往后挤,序列数随之增大*/
	Next i
End Sub

在这里插入图片描述

三、注意事项
1.代码中的索引号和新建sheet默认命名不一定一致,代码按照顺序,工作簿只是名称。

在这里插入图片描述

2.工作表的命名要求

在这里插入图片描述

  • 6
    点赞
  • 29
    收藏
    觉得还不错? 一键收藏
  • 2
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值