尋找不同工作表上的值清單並傳回列標題和行標題

Question

我正在嘗試在工作簿的多個工作表中查找值列表，並在搜尋值旁邊的儲存格中返回列標題和行標題。我發現一個程式碼非常適合活動工作表中第一列資料 (ColB) 中的所有值。如果我將位於另一列或另一個工作表中的值新增至清單中，我會收到循環參考錯誤，並且它將在我的函數儲存格中放置 0。我已將要查找的值列表放在最後一行資料下的第 1 列中，並將兩個函數放在它們旁邊的列中。

誰能幫我解決這個問題嗎？

我的工作簿由越來越多的相同格式的工作表組成。每個工作表的第 1 行有列標題，第 1 列有行標題，81 行和 40 列填入了資料。要尋找的值清單最多可達 1000 個或更多。

    Function MyROW(MyVAL)
With ActiveSheet.UsedRange
    FFIND = False
    For J = .Column + 1 To .Column + .Columns.Count
        For I = .Row + 1 To .Row + .Rows.Count
            If (Cells(I, J) = MyVAL) Then
                FFIND = True
                GoTo MyEND
            End If
        Next I
    Next J
    MyEND:
    If (FFIND) Then MyROW = Cells(I, .Column)
End With

結束功能

    Function MyCOLUMN(MyVAL)
With ActiveSheet.UsedRange
    FFIND = False
    For J = .Column + 1 To .Column + .Columns.Count
        For I = .Row + 1 To .Row + .Rows.Count
            If (Cells(I, J) = MyVAL) Then
                FFIND = True
                GoTo MyEND
            End If
        Next I
    Next J
    MyEND:
    If (FFIND) Then MyCOLUMN = Cells(.Row, J)
End With

結束功能

在儲存格 B84 中，我放置了此函數：=MyCOLUMN(A84) 並將其下拉至其下方的儲存格。在儲存格 C84 中，我對函數執行了相同的操作：=MyROW(A84)。如果我在A84 中放入一個可以在A2-A82 中找到的值，則這些函數都可以正常工作，但如果我在a84 中放入可以在B2-AO82 中找到的值，則函數都不能正常工作。