|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
这个代码拆分出来的工作表全部在一个工作簿了,我想要一个工作表拆分出来的对应一个工作簿应该怎么修改代码呢- Sub bhhh()
- Dim n, j
- Dim wb As Workbook, sht As Worksheet
- Set wb = Workbooks.Add
- Application.ScreenUpdating = False
- n = 25
-
- For j = 4 To 25
- With Workbooks("财务报表5月 (4).xlsm").Sheets(j)
- For i = 2 To .Cells(.Rows.Count, 1).End(3).Row Step n
- k = k + 1
- Set sht = wb.Worksheets.Add(after:=Sheets(Sheets.Count))
- sht.Name = .Name & k
- .Rows(1).Copy sht.[A1]
- .Rows(i).Resize(n).Copy sht.[a2]
- Next
- End With
- Next
-
-
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|