一个反查询的问题,实在是弄不明白了,帮帮忙!

pengwei0417

下表:

	0	10	20	30	40	50	60	70	80	90
0	4.0	3.9	3.8	3.7	3.6	3.5	3.4	3.2	3.0	2.9
100	2.8	2.7	2.5	2.4	2.2	2.1	1.9	1.8	1.7	1.5
200	1.4	1.3	1.2	1.1	1.0	0.9	0.7	0.6	0.5	0.3
300	0.2	0.1	0.0	-0.1	-0.2	-0.3	-0.5	-0.6	-0.7	-0.8
400	-0.9	-1.0	-1.1	-1.2	-1.3	-1.4	-1.5	-1.6	-1.7	-1.8

比如我知道2.7这个值,如何才能得到2.7所对应的首行和首列的值相加即100+10这个值
也就是说我知道表中的记录值,如何才能得到其所对应的首行和首列的值相加?实在是想不出办法了!
谢谢了.

欢欢

方法2:
{=OFFSET(A1,MAX(IF(B2:K6=A9,ROW(B2:K6)))-1,0,1,1)&"+"&OFFSET(A1,0,MAX(IF(B2:K6=A9,COLUMN(B2:K6)))-1,1,1) }

pengwei0417

谢谢,太谢谢了!我马上试一上.

欢欢

解答如上图:
用函数解决如下:
B9 单元格的公式为数组:
{=INDIRECT("A"&SUM(($A$1:$K$6=$A$9)*(ROW($A$1:$K$6)*ROW($A$1:$K$1))))&"+"&INDIRECT(CHAR(64+SUM(($A$1:$K$6=$A$9)*(COLUMN($A$1:$K$6)*COLUMN($A$1:$A$6))))&"1")}

liwen

Sub Macro1()
'
' Macro1 Macro
' 宏由 Bluewater 录制，时间: 2008-4-18
'

'
a = InputBox("请输入查找的值", "定位")



    Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False).Activate
        
        MsgBox Cells(1, ActiveCell.Column) + Cells(ActiveCell.Row, 1)
        
        
End Sub

[ 本帖最后由 liwen 于 2008-4-18 13:44 编辑 ]