刀丛里觅诗 / 数据处理excel / 牛b!Excel一键生成N个工作表跟工作簿

分享

   

牛b!Excel一键生成N个工作表跟工作簿

2016-06-14  刀丛里觅诗


送2段VBA代码,轻松实现一键生成。


1、根据A列的内容生成工作表,使用VBA代码如下:

Sub NewSheet()

        For i = 2 To [a65536].End(3).Row

            Worksheets.Add after:=Sheets(Sheets.Count)

            Sheets(i).Name = Sheet1.Cells(i, 1)

        Next 

End Sub



2、根据A列的内容生成工作簿,使用VBA代码如下:

Sub NewWorkbook()

        For i = 2 To [a65536].End(3).Row

            Mystr = Range('a' & i).Value

            Set wb = Workbooks.Add

            wb.SaveAs Filename:=ThisWorkbook.Path & '\' & Mystr & '.xlsx'

            wb.Close

        Next

End Sub



如果还不懂使用VBA,使用快捷键Alt+F11,调出VBA编辑器,插入模块后,将代码复制进去,按F5运行。



VBA是一种非常神奇的语言,只要你能想到的功能基本都能实现。




    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>