把你要求的结果放到J1
J1输入
=MATCH("×",INDIRECT(MATCH("李",A:A,)&":"&MATCH("李",A:A,)),)
代码
Sub 查找列号()
Dim I%, K%, arr
arr = Range("n1:n100")
For K = 2 To 9
x = WorksheetFunction.Match([J1], Range("a:a"), 0)
If Cells(x, K) = [j2] Then
n = n + 1
Cells(n, "M") = K
[k1] = WorksheetFunction.Min(Range("m:m"))
End If
Next
End Sub
http://jingyan.baidu.com/article/6c67b1d68cccbe2787bb1e9b.html
=if(and(A:A="张",B:B="x"),4,“”)