求助把总表里面的部门含某个字符的自动分到另外两张表

he001

求助大神，要求： 一、把“总表”内部门细化含北京名册的人员数据自动生成到表“北京名册”里面； 二、剩余人员总表内部门细化不含北京名册的数据自动生成到表“剩余名册”里面。 感谢~~

gykg-excel

=INDEX(总表!A:A,SMALL(NOT(ISNUMBER(FIND("北京名册",总表!$E$3:$E$18)))/1%%+ROW(总表!$E$3:$E$18),ROW($A1)))&""

鄂龙蒙

1. Sub 分表()
   
2.     Dim ar, br(), brr(), m, n, i, j
   
3.     Application.ScreenUpdating = False
   
4.     ar = Sheet1.UsedRange
   
5.         For i = 2 To UBound(ar)
   
6.             If ar(i, 5) Like "*北京*" Then
   
7.                 m = m + 1
   
8.                 ReDim Preserve br(1 To 7, 1 To m)
   
9.                 For j = 2 To 7
   
10.                     br(j, m) = ar(i, j)
    
11.                 Next
    
12.                 br(1, m) = m
    
13.             Else
    
14.                 n = n + 1
    
15.                 ReDim Preserve brr(1 To 7, 1 To n)
    
16.                 For j = 2 To 7
    
17.                     brr(j, n) = ar(i, j)
    
18.                 Next
    
19.                 brr(1, n) = n
    
20.             End If
    
21.         Next
    
22.     Sheet2.Range("A3:G10000").ClearContents
    
23.     Sheet2.Columns("B").NumberFormatLocal = "@"
    
24.     Sheet2.[A3].Resize(m, 7) = Application.Transpose(br)
    
25.     Sheet3.Range("A3:G10000").ClearContents
    
26.     Sheet3.Columns("B").NumberFormatLocal = "@"
    
27.     Sheet3.[A3].Resize(n, 7) = Application.Transpose(brr)
    
28.     Application.ScreenUpdating = True
    
29. End Sub

复制代码

he001

非常非常感谢~~~~