麻烦各位老师用JS写一个类似VBA精确查找并返回行号的代码

老磨石

Set RNG = .Columns(2).Find(归档编号.Text, , , 1)   '精确查找
        If Not RNG Is Nothing Then
            OW = RNG.Row '返回行号
            .Cells(OW, "D") = .Cells(OW, "T")
End If
  Set OP = Sheet9.Columns(2).Find(.ListItems(I).SubItems(1), LookAt:=xlWhole)   '模糊查询
  If Not OP Is Nothing Then           '判断是否找到内容匹配的单元格
      OW = OP.Row   '将查找返回单元格的行数赋给OW，返回行数
       Sheet9.Cells(OW, "D") = "已领取"
   End If

老磨石

var rng=Range('A:A').Find(Range("L1"),Range("A1"),xlValues,xlWhole,xlByRows); //精确查找
var endr=rng.Row; //返回行号
找到了JS代码，但代码好像是精确查找的，麻烦各位老师看一下有没有模糊查询的代码。

老磨石

自立更生，发帖分享
function 模糊查找(){
        var rng=Range('A:A').Find(Range("L1"),Range("A1"),xlValues,xlPart,xlByRows); //模糊查找
        if (rng==null){
                MsgBox("没有找到相应的单元格");
        }
        else{
                var fd=rng.Address(); //返回单元格地址
                var endr=rng.Row; //返回行号
        }
}


function 精确查找(){
        var rng=Range('A:A').Find(Range("L1"),Range("A1"),xlValues,xlWhole,xlByRows); //精确查找
        if (rng==null){
                MsgBox("没有找到相应的单元格");
        }
        else{
                var fd=rng.Address(); //返回单元格地址
                var endr=rng.Row; //返回行号
        }
}