[已解决]求助，根据目录自动添加新表并复制样表格式~

likeblue

Sub addsheet()
Application.ScreenUpdating = False
    Dim X As Worksheet
    Z = Range("c65536").End(xlUp).Row
    For i = 5 To Z
    y = Sheets.Count
    n = Cells(i, 3)
   
        MsgBox y
        Sheets.Add , Sheets(y)
        Sheets("sheet1").Copy , Sheets(y + 1)
        Sheets(y + 1).Name = n
     Next i

    Application.ScreenUpdating = True
End Sub

在线等 z是指目录数据列最后一行，目录从第五行开始。把样表sheet1复制到新表，运行后不对，请帮忙看下

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-4 10:25

1. Sub addsheet()
   
2.     Application.ScreenUpdating = False
   
3.     Dim X As Worksheet
   
4.     Set X = Worksheets("sheet1")
   
5.     Z = X.Range("c65536").End(xlUp).Row
   
6.     For I = 5 To Z
   
7.         N = X.Cells(I, 3)
   
8.         Worksheets("sheet1").Copy after:=Worksheets(Worksheets.Count)
   
9.         Worksheets(Worksheets.Count).Name = N
   
10.     Next I
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

假设都在同一个表中。

跳转到最佳答案楼层

hwc2ycy

sheet1是样表，那么目录数据列又在哪个表？

hwc2ycy

1. Sub addsheet()
   
2.     Application.ScreenUpdating = False
   
3.     Dim X As Worksheet
   
4.     Set X = Worksheets("sheet1")
   
5.     Z = X.Range("c65536").End(xlUp).Row
   
6.     For I = 5 To Z
   
7.         N = X.Cells(I, 3)
   
8.         Worksheets("sheet1").Copy after:=Worksheets(Worksheets.Count)
   
9.         Worksheets(Worksheets.Count).Name = N
   
10.     Next I
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

假设都在同一个表中。

su45

有附件才知道是怎么回事！

likeblue

hwc2ycy 发表于 2014-4-4 10:25
假设都在同一个表中。

非常感谢~