Sub finda()'用VBA更简单一些'用Find方法'然后用row 属性返回行数,用column返回列数'例如: R = Range("a1:d100").Find("N15").Row C = Range("a1:d100").Find("N15").Column MsgBox R & CEnd Sub
希望能帮到你!
等会