关于复制完工作表后，将无用的表进行删除，这段如何写？

chwj110

下面代码实现的就是将原表的涂红的工作表含内容复制过去，其他表会复制空表过去，现在是想要删除空表，但是按自己想的代码写会提示越界，只能将他判断为隐藏。有大神帮忙改善下么？途中箭头的方向

wb.Sheets(n).Delete 提示运行时错误9 下标越界

1. <p>
   
2. </p><p><div class="blockcode"><blockquote>Dim n&, sh As Worksheet, wb As Workbook
   
3. n = Application.SheetsInNewWorkbook
   
4. Application.SheetsInNewWorkbook = Sheets.Count
   
5. Set wb = Workbooks.Add
   
6. Application.SheetsInNewWorkbook = n
   
7. n = 0
   
8. 
   
9. With ThisWorkbook
   
10. For Each sh In .Sheets
    
11. n = n + 1
    
12. 
    
13. 'If sh.Visible = -1 Then '注释掉复制全部
    
14. 
    
15. If sh.Tab.Color = vbRed Then
    
16. 
    
17. wb.Sheets(n).Name = sh.Name
    
18. sh.UsedRange.Copy
    
19. wb.Sheets(n).Range("a1").PasteSpecial xlPasteValuesAndNumberFormats
    
20. wb.Sheets(n).Range("a1").PasteSpecial xlPasteColumnWidths
    
21. wb.Sheets(n).Range("a1").PasteSpecial xlPasteFormats
    
22. Else '注释掉复制全部
    
23. '
    
24. '↓
    
25. '
    
26. wb.Sheets(n).Visible = 2 '注释掉复制全部
    
27. 'wb.Sheets(n).Delete
    
28. '
    
29. '↑
    
30. '
    
31. End If
    
32. Next
    
33. End With
    
34. 
    
35. ActiveWorkbook.SaveAs ThisWorkbook.Path & "\基础表.xlsx"
    
36. ActiveWorkbook.Close

复制代码

chwj110

执行 27 提示运行时错误9 下标越界

taller

wb.Sheets(n).Delete 提示运行时错误9 下标越界  -- n多于wb中工作表的个数，尽量使用Sheets(工作表名称)的引用方式

yuwd3

当你删除了一张工作表后，n就不对了。可以先记着，复制好后统一删除，从后往前删除。
或者把for each sh in .sheets改成：
n=.sheets.count
for i=.sheets.count to 1 step -1
……
……
n=n-1
next

chwj110

yuwd3 发表于 2019-3-12 07:17
当你删除了一张工作表后，n就不对了。可以先记着，复制好后统一删除，从后往前删除。
或者把for each sh i ...

对哦。难怪每次调试时候，看着都是删除第一个工作表，然后就出错。

谢谢大神~

chwj110

taller 发表于 2019-3-12 06:34
wb.Sheets(n).Delete 提示运行时错误9 下标越界  -- n多于wb中工作表的个数，尽量使用Sheets(工作表名称)的 ...

谢谢哈哈。因为要适用不同报表。所以工作表名称不是固定的。