=INDEX(B2:F6,MATCH(1,A2:A6,0),MATCH("A",B1:F1,0))
如果你的行列编号都是连续的,那么可以用RANGE或者CELLS获得内容,例如:
Range("A1").Offset(1,1)
Cells(1,"A").Offset(1,1)
Offset(1,1)表示指定的Range或者Cells的下一行、右边的单元格,因为实际上你的表中A列是EXCEL的B列,如果是对齐的就修改Offset里面的为0,差异为其它值也类似处理。
VBA放在worksheets——selectionchange方法下
x=inputbox()
y=inputbox()
msgbox cells(cint(x),cint(y)).value
=OFFSET($A$1,MATCH("A",1:1,0)-1,MATCH(1,A:A,0)-1)
A和1可以使用单元格来代替