在总表添加一行后，代码出错了

zyangc

想在总表添加一行标题，然后vba拆分代码出错了


合同备查.rar (16.43 KB, 下载次数: 11)

2020-3-11 00:15 上传

点击文件名下载附件

不知道为什么

这个根据自己源数据 简单修改下代码即可。

opel-wong

如果在总表最前插入一行标题，
修改一下就可以了，代码如下：

1. Sub test()
   
2.     Dim ws As Worksheet, R%, i%, arr, c%, aa
   
3.     Dim d As Object: Set d = CreateObject("scripting.dictionary")
   
4.     Dim d1 As Object: Set d1 = CreateObject("scripting.dictionary")
   
5.     For Each ws In Worksheets
   
6.         d1(ws.Name) = ""
   
7.     Next
   
8.     With Worksheets("总表")
   
9.         R = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.         c = .Cells(2, .Columns.Count).End(xlToLeft).Column
    
11.         arr = .Range("b1:b" & R)
    
12.         For i = 3 To UBound(arr)
    
13.             If Not d.Exists(arr(i, 1)) Then
    
14.                 Set d(arr(i, 1)) = .Range("a2").Resize(1, c)
    
15.             End If
    
16.             Set d(arr(i, 1)) = Union(d(arr(i, 1)), .Cells(i, 1).Resize(1, c))
    
17.         Next
    
18.     End With
    
19.     For Each aa In d.Keys
    
20.         If Not d1.Exists(aa) Then
    
21.             Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    
22.         End If
    
23.         With Worksheets(aa)
    
24.             .Cells.Clear
    
25.             d(aa).Copy .Range("a1")
    
26.         End With
    
27.     Next
    
28. End Sub

复制代码

zyangc

opel-wong 发表于 2020-3-11 07:59
如果在总表最前插入一行标题，
修改一下就可以了，代码如下：

能帮忙修改下代码吗？ 就是总表再添加一个类别，但是这个类别不拆分下去，就在总表里，或者跳过分类中空白单元格这行