Public Sub find52()
Dim alldata As Variant
Dim i As Integer
Dim n As Integer
Dim rg As Range
Set rg = Nothing
alldata = ActiveSheet.UsedRange.Value
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For n = 1 To ActiveSheet.UsedRange.Columns.Count
If alldata(i, n) = 52 Then
If rg Is Nothing Then
Set rg = Cells(i, n)
Else
Set rg = Union(Cells(i, n), rg)
End If
End If
Next
Next
rg.Select
End Sub
按你要求。不过,数组不如楼上直接单元格操作简便吧。