风行无忌 发表于 2021-11-20 16:28:00

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

哪位大佬可以帮忙把总表里的内容 按照对应的班组分到后面的表格里

礁石是大海的疤 发表于 2021-12-10 10:51:53

=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)))),"")
数组三键右拉下拉

昆明金鹰工艺品经营部二店 发表于 2022-1-21 01:41:49

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

余鹅宝 发表于 2022-1-31 23:05:24

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

潘国平 发表于 2022-2-13 08:41:04

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 .
End With
Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

心灵理疗师 发表于 2022-2-15 16:38:32

舞天堂 发表于 2022-2-22 11:34:52

其实，楼主的问题，就是一个拆分为多个工作表的问题，可以到去我的主题里面去找找的，几个灵活拆分工具，一定有一个适合你的，下载就能用
页: [1]
查看完整版本: 帮忙把总表里的内容 按照对应的班组分到后面的表格里