¤升级内容¤
新建了工作表之后,把新建的工作表,一个工作表新建到工作簿中,并以工作表的名称命名工作簿。
通过剪切的方式,新建工作簿。
¤代码示例¤
Option Explicit
Sub 拆分到簿()
Dim i As Integer
Dim sh As Worksheet
Dim sName As String
Dim tm As Single
tm = Timer
Dim sYuan As String
sYuan = ActiveSheet.Name
'第一行为标题,所以从第二行开