【原】Excel工作簿里按指定名称批量建立工作表，效率杠杠哒！！

分列时让超过15位的数字不变成科学计数法

Excel情报局

生产搬运分享Excel基础技能

OFFICE知识新青年

用1%的Excel基础搞定99%的日常工作

做一个有文艺范的Excel公众号

Excel是门手艺 玩转需要勇气

边听边学，阅读文章更轻松

同一工作簿下如何按指定单元格范围的名称批量建立工作表？

如下图所示，A2:A4单元格列出了需要批量建立的工作表的名称，我们可以用一段简单的VBA代码，瞬间将这些单元格内的名称批量生成对应工作表名称的工作表，简单高效！

VBA代码并不需要我们初学代码者理解其深意，我们只需复制粘贴现成的通用代码，运行代码即可实现最终结果。

注：该段代码是根据当前工作表A列的数据批量建立工作表。     

VBA根据A列数据批量建立工作表的代码如下：

Sub NewSht()

    Dim Sht As Worksheet, Rng As Range

    Dim Sn, t$

    Set Rng = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)

    On Error Resume Next

    For Each Sn In Rng

        t = Sn

        Set Sht = Sheets(t)

        If Err Then

            Worksheets.Add , Sheets(Sheets.Count)

            ActiveSheet.Name = t

            Err.Clear

        End If

    Next

    Rng.Parent.Activate

End Sub

右击工作表，点击查看代码，打开VBA界面，或者按快捷键ALT+F11键，打开VBA界面，复制粘贴代码，点击运行，关闭VBA窗口，返回Excel主界面发现操作成功！

隔三差五学个Excel小知识，忘记一天工作的烦恼，只要坚持，最后可能不会得到最好的结果，但一定不会收获最坏的结果。赖床舒服，但可能迟到；熬夜很爽，但伤身体。自律或许并不容易，但你越懒惰越放纵自己，就越可能错过美好的人和事。如果生活注定充满艰辛，那就学着做拯救自己的那个英雄。趁年轻不妥协，向前奔跑！从今天开始改变，对平庸生活奋力回击。