excel教师任课情况表

wangzhongqiang

excel教师任课情况表

希望能从表一得出表二的信息，谢谢啦各位神们

wangzhongqiang

很急着用啊，求求大家帮忙

kkf5560

先搞个辅助行，=INDEX($B$3:$B$34,SMALL(IF($I3=$C$3:$G$34,ROW($3:$34)-2,4^8),COLUMN(A1)),)三键横拉下拉，先找出有哪些班，然后放到一个单元格去

wangzhongqiang

kkf5560 发表于 2018-3-19 21:34
先搞个辅助行，=INDEX($B$3:$B$34,SMALL(IF($I3=$C$3:$G$34,ROW($3:$34)-2,4^8),COLUMN(A1)),)三键横拉下拉 ...

谢谢啊，那拉出来后如何放到一个单元格里去呢？

xgczwp

学习高手。

kkf5560

wangzhongqiang 发表于 2018-3-19 21:41
谢谢啊，那拉出来后如何放到一个单元格里去呢？

啊，&这个符号啊，或者CONCAT

xhms

楼主，虽然麻烦一些，大部分都已经做出来了，后面的请楼主完成吧！

abccba_ln

1. Option Explicit
   
2. Function Contxt(ParamArray args() As Variant) As Variant
   
3.     Dim tmptext As Variant, i As Variant, cellv As Variant
   
4.     Dim cell As Range
   
5.     tmptext = ""
   
6. 
   
7.     For i = 0 To UBound(args)
   
8.         If Not IsMissing(args(i)) Then
   
9.             Select Case TypeName(args(i))
   
10.             Case "Range"
    
11.                 For Each cell In args(i)
    
12.                     tmptext = tmptext & cell
    
13.                 Next cell
    
14.             Case "Variant()"
    
15.                 For Each cellv In args(i)
    
16.                     tmptext = tmptext & cellv
    
17.                 Next cellv
    
18.             Case Else
    
19.                 tmptext = tmptext & args(i)
    
20.             End Select
    
21.         End If
    
22.     Next i
    
23. 
    
24.     Contxt = tmptext
    
25. End Function
    

复制代码

剩下点力工活，不爱干了，这个活用VBA会好很多，也很简单，发到VBA板块吧。上面的自定义函数是从这个网站复制来的，非常好用。

yang133319

关键部分弄出来了，后面的合并，不想弄了，你自己弄吧

yang133319

关键的弄出来了，剩下的合并之类的，自己弄吧