如何返回Application.Match函数的匹配值的索引？

Question

我有以下代码。 ＆＃34; Application.Match＆＃34;函数在两个工作表中搜索相同的值，如果匹配则返回true。

如何获得这两个值的索引，以便我可以使用它们（行和列）？

If Not IsEmpty(Cells(iRow, 1)) Then
         For iSheet = ActiveSheet.Index + 1 To Worksheets.Count
            bln = False
            var = Application.Match(Cells(iRow, 1).Value, 
Worksheets(iSheet).Columns(1), 0)
            If Not IsError(var) Then
                bln = True
                  Else
               Exit For
            End If
         Next iSheet