帮忙把总表里的内容 按照对应的班组分到后面的表格里

风行无忌

哪位大佬可以帮忙把总表里的内容 按照对应的班组分到后面的表格里
任务书11-20.zip (97.68 KB, 下载次数: 185)

2021-11-20 16:28 上传

点击文件名下载附件
任务书11-20.zip

礁石是大海的疤

=IFERROR(IF(COUNTIF(总表!$A$1:$A$5000,$I$1)<ROW($A1),"",INDEX(INDIRECT("'总表"&"'!"&(ADDRESS(1,MATCH(B$2,INDIRECT("'总表"&"'!$1:$1"),0),1)&":"&ADDRESS(1000,MATCH(B$2,INDIRECT("'总表"&"'!$1:$1"),0),1))),SMALL(IF(ISNUMBER(IF(总表!$A$1:$A$5000=$I$1,ROW(总表!$A$1:$A$5000))),ROW(总表!$A$1:$A$5000),99999),ROW($A1)))),"")
数组三键右拉下拉

昆明金鹰工艺品经营部二店

把每个工作表的名称，直接复制到I1的红色单元格里

余鹅宝

谢谢你的帮助，是方便了很多，就是数组公式反应有点慢

潘国平

Sub 拆分()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("总表")
  r = .Cells(Rows.Count, 1).End(xlUp).Row
  ar = .Range("a1:h" & r)
  For i = 2 To UBound(ar)
  If Trim(ar(i, 1)) <> "" Then
    If Not d.exists(Trim(ar(i, 1))) Then
      Set d(Trim(ar(i, 1))) = .Range("b" & i).Resize(1, 7)
    Else
      Set d(Trim(ar(i, 1))) = Union(d(Trim(ar(i, 1))), .Range("b" & i).Resize(1, 7))
    End If
  End If
  Next i
  x = d.keys
  For i = 0 To UBound(x)
  mc = x(i)
  With Sheets(mc)
    .Range("b3:h34") = Empty
    d.items()(i).Copy .[b3]
  End With
  Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

心灵理疗师

任务书11-20.rar (117.23 KB, 下载次数: 12)

2021-11-20 16:28 上传

点击文件名下载附件
任务书11-20.rar

舞天堂

其实，楼主的问题，就是一个拆分为多个工作表的问题，可以到去我的主题里面去找找的，几个灵活拆分工具，一定有一个适合你的，下载就能用