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