다른 워크시트에서 값 목록을 조회하고 열과 행 머리글을 모두 반환합니다.

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) 함수를 사용하여 동일한 작업을 수행했습니다. A2-A82에서 찾을 수 있는 A84에 값을 넣으면 두 기능 모두 잘 작동하지만, B2-AO82에서 찾을 수 있는 a84에 값을 넣으면 작동하지 않습니다.