快速复制工作表并指定名字(VBA)

短短几行代码搞了半天才搞好。

快速复制当前激活的工作表,表的名字引用的是sheet1工作表的A1到A3列,要注意当前激活的工作表肯定不能是sheet1。

程序代码 程序代码
Sub fuzhi()
    For i = 1 To 3
        ActiveSheet.Copy after:=ActiveSheet
        ActiveSheet.Name = Sheets("sheet1").Range("A" & i)
    Next i
End Sub



文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.