【F】依据班级名称，从总表自动提取学生姓名到对应的班级工作表

Sinopec_sh · 发表于 2017-11-9 10:40

本帖最后由 Sinopec_sh 于 2017-11-11 13:41 编辑

已经解决，谢谢！

sdc3211772 · 发表于 2017-11-9 11:08

Sub ddddd()
Dim arr, ws As Worksheet, i, n, arr1()
arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each ws In Worksheets
If ws.Name <> "总表" Then
      For i = 1 To UBound(arr)
         If arr(i, 3) = ws.Name Then
            n = n + 1
            ReDim Preserve arr1(1 To 3, 1 To n)
            arr1(1, n) = n
            arr1(2, n) = arr(i, 1)
            arr1(3, n) = arr(i, 2)
         End If
      Next
      ws.Range("a:c").ClearContents
      ws.Cells(1, 1).Resize(1, 3) = Application.Transpose(Array("序号", "姓名", "性别"))
      ws.Cells(2, 1).Resize(n, 3) = Application.Transpose(arr1)
      n = 0
End If
Next
End Sub

问山8828680 · 发表于 2017-11-9 11:11

INDEX(总表!A:A,SMALL(IF(总表!$C$2:$C$1000="一班",ROW($2:$1000),9^5),ROW(A1)))&""

袁勇 · 发表于 2017-11-9 11:13

B2：

=LOOKUP($A2-1,COUNTIF(OFFSET(总表!$C$1,,,ROW(总表!$1:1000)),"一班"),总表!A$2:A1001)&""

复制代码

右拉下拉，其它，改为对应的班级。

gspl-xin · 发表于 2017-11-9 11:18

=INDEX(总表!A:A,SMALL(IF(总表!$C$2:$C$1500=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1))),ROW($2:$1500),4^8),ROW(A1)))&""
分班通用公式，数组三键，下拉右拉。

复制代码

mengrs · 发表于 2017-11-9 11:20

=INDEX(总表!A:A,SMALL(IF(总表!$C$2:$C$986=MID(CELL("filename"), FIND("]",CELL("filename"))+1,255),ROW($2:$986),4^8),ROW(1:1)))&""

sdc3211772 · 发表于 2017-11-9 11:22

修改一下标题行：
Sub ddddd()
Dim arr, ws As Worksheet, i, n, arr1()
arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
For Each ws In Worksheets
If ws.Name <> "总表" Then
      For i = 1 To UBound(arr)
         If arr(i, 3) = ws.Name Then
            n = n + 1
            ReDim Preserve arr1(1 To 3, 1 To n)
            arr1(1, n) = n
            arr1(2, n) = arr(i, 1)
            arr1(3, n) = arr(i, 2)
         End If
      Next
      ws.Range("a:c").ClearContents
      ws.Cells(1, 1).Resize(1, 3) = Application.Transpose(Application.Transpose(Array("序号", "姓名", "性别")))
      ws.Cells(2, 1).Resize(n, 3) = Application.Transpose(arr1)
      n = 0
End If
Next
End Sub

Sinopec_sh · 发表于 2017-11-9 11:31

本帖最后由 Sinopec_sh 于 2017-11-10 09:42 编辑

事情已经解决，谢谢！

Sinopec_sh · 发表于 2017-11-9 11:33

本帖最后由 Sinopec_sh 于 2017-11-10 09:43 编辑

事情已经解决，谢谢！

Sinopec_sh · 发表于 2017-11-9 12:23

本帖最后由 Sinopec_sh 于 2017-11-10 09:44 编辑

事情已经解决，谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 【F】依据班级名称，从总表自动提取学生姓名到对应的班级工作表