循环复制新建表

3190496160

Sub 新建工作表()
sl = Sheets.Count
If sl = 1 Then
    mc = "1月1"
Else
    zh = Sheets(Sheets.Count).Name
    wz = InStr(zh, "月") - 1
    h = Val(Right(zh, 1))
    k = Val(Left(zh, wz))
    If h = 1 Then
        mc = Left(zh, wz + 1) & Val(Right(zh, 1)) + 1
    Else
        mc = k + 1 & "月" & 1
    End If
End If
Sheets("年表").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = mc
    For Each shp In .Shapes
        shp.Delete
    Next shp
End With
Sheets("年表").Select
MsgBox "ok!"
End Sub

3190496160

3190496160

不知道你是在折腾些什么
注册了17年的会员，发了三百多个主题，还在问这些低级的问题，要加强学习不是？

3190496160

循环新建表.rar (18.48 KB, 下载次数: 2)

2023-2-9 14:37 上传

点击文件名下载附件

xing_chen

3190496160 发表于 2023-2-9 14:37

谢谢老师！运行如愿！棒极了！
解决了我这2天的困惑。我是将我工作中的表不断改进效率和减少手工作业。谢谢！我也自感不断麻烦老师们，惭愧！学无长进，想法特多。