VBA创建新工作簿并在内按要求创建新表

pureshadow

Sub Macro1()

Dim x As Long
Dim i As Long

x = Sheets("sheet1").Range("a65536").End(xlUp).Row
For i = 2 To x

Sheets.Add after:=Sheets(i - 1)
ActiveSheet.Name = Sheets("sheet1").Range("a" & i)
Sheets("sheet1").Select

Next

End Sub

[ 本帖最后由 pureshadow 于 2008-3-27 21:55 编辑 ]

pureshadow

啊哈.......
不好意思,
妖的EXCEL是设置成打开只有一个SHEET的[:30]

pureshadow

同一工作表内的代码还不熟.......
跨工作表的更是生硬.......
现在要我跨工作簿......
[:30]

pureshadow

原帖由 andymark 于 2008-3-27 21:59 发表
呵呵,E版终于开擂啦
支持一下

什么呀,前一个擂,已经开了几层楼了.......
老大也不关注一下E版[:30]

pureshadow

老大向来是偏心的,我们都习惯了....[:41]