excel - Excelモジュール検索、「このセルの数字は、私のシートのどこかに存在しますか？」

Question

こんにちは、特定のセルの数字が私のシートのいずれかに既に存在するかどうかをチェックするモジュール検索を作成しようとしています。

Answer 1

どうですか：

Sub WhereIsIt()
    Dim v As Variant, sh As Worksheet
    Dim msg As String
    v = ActiveCell.Value
    msg = ActiveSheet.Name & "-" & ActiveCell.Address
    For Each sh In Sheets
        For Each cell In sh.UsedRange
            If cell.Value = v Then
                msg = msg & vbCrLf & sh.Name & "-" & cell.Address
            End If
        Next cell
    Next sh
    MsgBox msg
End Sub