EXCel中一个工作簿多个工作表有什么快捷方法修改工作表命名

excel一个工作簿中建立了30个工作表也就是没个表代表一个月的每一天每次建立一个工作簿30张表的时候一个一个的去改它的命名好麻烦请教下谁有快捷的方法吗?指点指点... excel一个工作簿中建立了30个工作表 也就是没个表代表一个月的每一天每次建立一个工作簿30张表的时候一个一个的去改它的命名 好麻烦 请教下谁有快捷的方法吗? 指点指点 展开
 我来答
帐号已注销
2010-09-01 · TA获得超过1867个赞
知道小有建树答主
回答量:507
采纳率:0%
帮助的人:490万
展开全部
按Alter + F11,双击thisworkbook,代码窗口里面输入以下代码:

Sub addsh()

On Error Resume Next

Dim I, A, B, C, D, E

A = Year(Date)
B = Month(Date) + 1

D = DateSerial(A, B, 1) - Date

ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count), Count:=D - Worksheets.Count

For E = 1 To D

Sheets(E).Name = A & "年" & B - 1 & "月" & E & "日"

Next

Sheets(1).Select

End Sub

以上代码可以实现 按每月实际天数增加工作表(如果你工作薄里面有2个工作表,本月有30天,则增加28个工作表),然后将全部工作表(刚才例子中的30个表)命名为 XXXX年XX月XX日的格式。

如有任何问题,HI我
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式