用什么公式实现由任课教师姓名从任课表中查找出此教师所教的班级和对应的学科？

lhx120824

用什么公式实现由任课教师姓名
从表一中查找出此教师所教的班级和对应的学科？

班级和科目能用一个公式写出吗？
查任课表.rar (4.44 KB, 下载次数: 378)

2010-7-29 13:34 上传

点击文件名下载附件

[ 本帖最后由 lhx120824 于 2010-7-29 14:22 编辑 ]

lhx120824

换个说法就是：
如何从一个多行多列的区域中查找某一值所在的所有位置（即行和列）？

Jdtax

查任课表.rar (4.97 KB, 下载次数: 141)

2010-7-29 13:55 上传

点击文件名下载附件

再改一下

查任课表.rar (5.1 KB, 下载次数: 552)

2010-7-29 14:03 上传

点击文件名下载附件

[ 本帖最后由 Jdtax 于 2010-7-29 14:03 编辑 ]

zljkd007

我也做一个，不知道是不是这个意思？

foodorwater

I3=IF(ROW(A1)>COUNTIF($B$3:$F$10,$H$3),"",INDIRECT(ADDRESS(LEFT(TEXT(SMALL(IF($B$3:$F$10=$H$3,ROW($B$3:$F$10)*1000+COLUMN($B$3:$F$10),65536256),ROW(A1)),"00c000"),2),1)))
數組公式

J3=IF(ROW(A1)>COUNTIF($B$3:$F$10,$H$3),"",INDIRECT(ADDRESS(2,RIGHT(TEXT(SMALL(IF($B$3:$F$10=$H$3,ROW($B$3:$F$10)*1000+COLUMN($B$3:$F$10),65536256),ROW(A1)),"0c000")))))

數組公式

[ 本帖最后由 foodorwater 于 2010-7-30 10:44 编辑 ]

xiezijian

二个简单的宏，仅供参考：
Sub chazhao()
Dim i As Integer
i = 3
    For r = 3 To 10
        For c = 2 To 6
            If Cells(r, c) = Cells(3, 8) Then
            Cells(i, 9) = Cells(r, 1)
            Cells(i, 10) = Cells(2, c)
            i = i + 1
            End If
        Next
    Next
End Sub
Sub qingkong()
Range("I3:J65536").ClearContents
End Sub

lhx120824

3楼的查班级公式：
=OFFSET(A$1,SMALL(IF($B$3:$F$10=H$3,ROW($3:$10),9^9),ROW(A1))-1,)
查科目公式：
=INDIRECT("r2c"&RIGHT(SMALL(IF($B$3:$F$10=H$3,COLUMN(B:F)+ROW($3:$10)*10^3,9^9),ROW(A1)),2),)&""
解决问题很正确，就是复杂了点，我要好好研究。

lhx120824

大家反应够快的，我慢慢研究使用再回复。谢谢大家。

lhx120824

原帖由 zljkd007 于 2010-7-29 13:56 发表
我也做一个，不知道是不是这个意思？

结论也对。谢谢。

lhx120824

原帖由 foodorwater 于 2010-7-29 13:57 发表
I3=IF(ROW(A1)>COUNTIF($B$3:$F$10,$H$3),"",INDIRECT(ADDRESS(LEFT(TEXT(SMALL(IF($B$3:$F$10=$H$3,ROW($B$3:$F$10)*1000+COLUMN(B3:F10),65536256),ROW(A1)),"0c000")),1)))

數組公式

J3=IF(ROW(A1)>COUNTIF ...

5楼的公式加了纠错功能，也显得长了些。