SEARCH

与我们合作

我们专注提供互联网一站式服务，助力企业品牌宣传多平台多途径导流量。
主营业务：网站建设、移动端微信小程序开发、营销推广、基础网络、品牌形象策划等

您也可通过下列途径与我们取得联系：

微信: wxyunyingzhe

手机: 15624122141

邮箱:

网站制作

用VBA复制sheet1考勤表生成12个月考勤表，并用月份命名sheet。

更新时间：2025-01-06 22:31:43

改成这样好了！

Sub AddSh()

Dim a$, b% 'a%改为a$

For b = 1 To 12

a = b & "月"

Sheets(1).Activate '此句不可少

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = a

Sheets(1).Cells.Copy Sheets(a).Cells

Sheets(a).Range("a2").MergeArea.ClearContents

Sheets(a).[a2].Value = "2017年" & b & "月1日"

Next

End Sub

标签：用vba复制sheet1考勤表生成12个月考勤表并用月份命名sheet

上一篇：用EXCEL制作考勤表为何时间都一样

下一篇：求考勤表一份。。能自动算出如：加班，迟到等明细。并自动计算工资。。

QQ客服电话咨询