求助修改代码

学生的方式的

这个代码拆分出来的工作表全部在一个工作簿了，我想要一个工作表拆分出来的对应一个工作簿应该怎么修改代码呢

1. Sub bhhh()
   
2.     Dim n, j
   
3.     Dim wb As Workbook, sht As Worksheet
   
4.     Set wb = Workbooks.Add
   
5.     Application.ScreenUpdating = False
   
6.     n = 25
   
7.    
   
8.     For j = 4 To 25
   
9.         With Workbooks("财务报表5月 (4).xlsm").Sheets(j)
   
10.             For i = 2 To .Cells(.Rows.Count, 1).End(3).Row Step n
    
11.                 k = k + 1
    
12.                 Set sht = wb.Worksheets.Add(after:=Sheets(Sheets.Count))
    
13.                 sht.Name = .Name & k
    
14.                 .Rows(1).Copy sht.[A1]
    
15.                 .Rows(i).Resize(n).Copy sht.[a2]
    
16.             Next
    
17.         End With
    
18.         Next
    
19.         
    
20.         
    
21.         Application.ScreenUpdating = True
    
22.         End Sub

复制代码

灰色幽灵

Set wb = Workbooks.Add你不是会新建工作薄吗？

学生的方式的

灰色幽灵 发表于 2019-6-13 14:33
Set wb = Workbooks.Add你不是会新建工作薄吗？

老师，我是想新建多个工作簿每个工作表拆分的对应一个工作簿，但是这个代码执行只建了一个工作簿。把所以拆分的都放在这个工作簿了，想修改又不知怎么修改

灰色幽灵

Set wb = Workbooks.Add
Set sht = wb.Worksheets.Add(after:=Sheets(Sheets.Count))
把头上Set wb = Workbooks.Add删掉，放到Set sht = wb.Worksheets.Add(after:=Sheets(Sheets.Count))前面，这样就可以循环创建了，最后你在保存的时候改一下文件名。

学生的方式的

灰色幽灵 发表于 2019-6-13 14:59
Set wb = Workbooks.Add
Set sht = wb.Worksheets.Add(after:=Sheets(Sheets.Count))
把头上Set wb = Wor ...

老师，这样变成新建的工作簿只有一个工作表了，我想要新建的工作簿里有拆分出来的多个工作表

学生的方式的

灰色幽灵 发表于 2019-6-13 14:59
Set wb = Workbooks.Add
Set sht = wb.Worksheets.Add(after:=Sheets(Sheets.Count))
把头上Set wb = Wor ...

比如安徽快运1，安徽安徽快运2，安徽快运..........  为一个 工作簿，广东快运1，广东安徽快运2，广东快运..........  为一个 工作簿

小小鸟前滚翻

编写vBA前先把程序的工作思路理清楚，而不是先想这个代码点么改

学生的方式的

小小鸟前滚翻 发表于 2019-6-13 15:31
编写vBA前先把程序的工作思路理清楚，而不是先想这个代码点么改

老师帮忙想想办法吧，该怎么修改一下。我实在是不会搞了。。

Yalishanda30

代码修改一下就可以了

Yalishanda30

学生的方式的 发表于 2019-6-13 15:40
老师帮忙想想办法吧，该怎么修改一下。我实在是不会搞了。。

附件发上来了